Question

с клавиатуры вводится среднесуточная температура за октябрь определите количество дней в которые были заморозкиПрограмму надо в паскале написать

Answer 1

var temp:array[1..31] of integer;
k,i:integer;

begin
for i:=1 to 31 do readln(temp[i]);

for i:=1 to 31 do 

if a[i]<0 then inc(k);

writeln(k);

end.

Answer 2

program a1;

 uses crt;

 var a:array[1..31] of longint;k,i:integer;

begin

 clrscr;

 for i:=1 to 31 do begin

  write('Введите температуру ',i,' числа:');

  readln(a[i]); 

  if a[i]<0 then k:=k+1;

  end;

writeln(' Количество дней в которые были заморозки = ', k);

readln

end. 

 

P.S. Если паскаль ABC, то выделенное писать не обязательно 

Answer 3

Для решения этой задачи вам потребуется написать программу на языке Паскаль, которая будет считывать с клавиатуры среднесуточную температуру за октябрь и определять количество дней, в которые были заморозки.

Вот пример программы на языке Паскаль, которая решает данную задачу:

program CountFreezingDays;

var
  temperature: Integer; // переменная для хранения среднесуточной температуры
  freezingDays: Integer; // переменная для хранения количества дней с заморозками
  day: Integer; // переменная для хранения номера дня

begin
  freezingDays := 0; // инициализируем переменную количества заморозков нулем

for day := 1 to 31 do // цикл для перебора всех дней октября
  begin
    write('Введите среднесуточную температуру для дня ', day, ': ');
    readln(temperature); // считываем температуру с клавиатуры

if temperature < 0 then // проверяем, была ли заморозка
      freezingDays := freezingDays + 1; // увеличиваем счетчик заморозков
  end;

writeln('Количество дней с заморозками: ', freezingDays);
end.

В этой программе мы используем цикл `for` для перебора всех дней октября. На каждой итерации цикла программа запрашивает среднесуточную температуру для текущего дня и проверяет, была ли заморозка (температура ниже нуля). Если была заморозка, то увеличиваем счетчик `freezingDays` на единицу. По окончании цикла программа выводит количество дней с заморозками.

Примечание: Пожалуйста, учтите, что язык Паскаль устарел и не широко используется в современном программировании. Если у вас возникнут проблемы с компиляцией или выполнением программы на языке Паскаль, рекомендуется использовать более современные языки программирования, такие как Python, Java или C++.