Массив содержит значения температуры, измеренной в 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.