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

var

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

i, sum, count: integer;

average: real;

begin

sum : = 0;

writeln ('Данные о температуре: ') ;

for i : = 1 to 10 do

begin

a[i] : = random (61) - 30;

sum : = sum + a[i];

write (a[i], ' ') ;

end;

writeln;

average : = sum / 10;

for i : = 1 to 10 do

if a[i] > average then inc (count) ;

writeln (count, ' раз (a) ') ;

end.