1. Какова структура оператора цикла с параметром?
2. Каков алгоритм выполнения цикла с параметром?
3. Какого типа должны быть параметр цикла, его начальное и конечное значения в цикле с параметром в языке Pascal?
4. Могут ли параметр цикла, его начальное и конечное значения в цикле с параметром в языке Pascal быть разных типов? Обоснуйте ответ.
5. Может ли один цикл быть вложен внутрь другого? Если да, то какова глубина этой вложенности?
6. Сколько раз исполнится тело цикла во фрагменте программы?
For i := 1 to -1 Do k:=k*i;
7. Сколько раз исполнится тело цикла во фрагменте программы?
For i := -1 to 1 Do k:=k*i;
8. Сколько раз исполнится тело цикла во фрагменте программы?
For i := 1 downto -1 Do k:=k*i;​

1.

with open("input.txt") as f:

  reads=list(map(float,f.read().split("\n")))

with open("output.txt", "w") as f:

  for i in range(len(reads)):

      if reads[i]<=0:

          reads[i]="A cold, is not it?"

      elif reads[i]<10:

          reads[i]="Cool."

      else:

          reads[i]="Nice weather we`re having.."

  f.write("\n".join(reads))

2.

with open("input.txt") as f:

  reads=f.read().split("\n")

with open("output.txt", "w") as f:

  for i in range(len(reads)):

      if reads[i] in ("yes","YES","Yes"):

          reads[i]="Yes"

      else: reads[i] = "No"

  f.write("\n".join(reads))

Зачем писать какой язык, главное скопировать.

Объяснение:

Сделано на с++

#include "pch.h"

#include "iostream"

#include "ctime"

using namespace std;

const int arr_el_count = 12;

float sr_arif;

int negative_nums_count = 0;

int arr[arr_el_count];

int main()

{

srand(time(0));

setlocale(LC_ALL, "Rus");

for (int i = 0; i < arr_el_count; i++)

{

arr[i] = -170 + rand() % 1000;

}

for (int i = 0; i < arr_el_count; i++)

{

if (arr[i] < 0)

{

negative_nums_count++;

sr_arif += arr[i];

}

else if (arr[i] > 0)

{

arr[i] = 0;

}

}

if (negative_nums_count > 0)

{

sr_arif /= negative_nums_count;

cout << "Среднее арифметическое отрицательных чисел = " << sr_arif << endl;

}

else {

cout << "Отрицательных чисел не найдено!" << endl;

}

return 0;

}