Массив содержит значения температуры, измеренной в 10 точках радиатора охлаждения(°c): 45, 34, 39, 67, 62, 41, 52, 57, 51, 36. определить среднюю температуру ''горячих'' (> 50 °c) участков радиатора.

Uses crt;
const
    a:array[1..10] of integer=(45, 34, 39, 67, 62, 41, 52, 57, 51, 36);
var sr:real;
    i,n,sum:integer;
begin
     for i:=1 to 10 do write(a[i]:3);
     writeln;
     for i:=1 to 10 do
     if a[i]>50 then
     begin
          sum:=sum+a[i];
          n:=n+1;
     end;
     sr:=sum/n;
     writeln('Среднее значение горячих участков: ',sr);
end.