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

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.