Информация о среднесуточной температуре воздуха за месяц в виде массива . Определите и выведите на экран сколько раз температура была ниже среднемесячной Информатика
var
a:array[1..30] of real;
average,s:real;
i,x:integer;
begin
for i:=1 to 30 do
read(a[i]);
s:=s+a[i]
end;
average:=s/30;
if a[i]
writeln(x)
end.