Question

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

Answer 1

Var a,b,i:integer;
n:real;
mass:array[1..31] of integer;
begin
for i:=1 to 31 do begin
mass[i]:=random(40)-20;
if mass[i]>0 then begin
b:=b+1;
a:=a+mass[i];
end;
end;
writeln('Полученные значения');
for i:=1 to 31 do
write(mass[i]:4);
n:=a/b;
writeln;
writeln('Средняя температура равна ',n:3:1);
end.