Question

Дан целочисленный массив из 30 элементов. Элементы массива могут принимать
значения от - 20 до 20 - сведения о температуре за каждый день ноября. Напишите
программу, которая находит и выводит среднюю температуру среди дней, когда были
заморозки (то есть температура опускалась ниже нуля). Гарантируется, что хотя бы
в один день ноября была отрицательная температура.
Исходные данные объявлены так, как показано ниже. Запрещается использовать
переменные, не описанные ниже, но разрешается не использовать часть из них.
const
N=30;
var
a: array [1..N] of integer;
i, j, max: integer;
begin
for i:=l to N do readln(a[i]);

Answer 1

Ответ:

const

N=30;

var

a: array [1..N] of integer;

i, j, max: integer;

begin

for i:=1 to N do readln(a[i]);

j:=0;

max:=0;

for i:=1 to N do

if (a[i]<0) then  

 begin

 max:=max+a[i];

 j:=j+1;

 end;

writeln('Средняя температура среди дней,',

' когда были заморозки: ',max/j);

end.