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

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.