Массив содержит значения температуры, измеренной в 10 точках радиатора охлаждения(°C): 45, 34, 39, 67, 62, 41, 52, 57, 51, 36. Определить среднюю температуру ''горячих'' (>50 °C) участков радиатора.
Answers & Comments
Sky09
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.
Answers & Comments
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.