А) найдите среднюю температуру за неделю

Question

А) найдите среднюю температуру за неделю (температура была: -5, — 3, -7, -6, -2, — 4, -3) Сколько дней было выше средней? Ниже средней? Составить массив.

Fitguy · Accepted Answer

Program Frank; const n=7; Type mas=array[1… n] of integer; var a: mas; i,sym,k,k1: integer; sredn: real; begink: =0; k1: =0; a[1]: =-5; a[2]: =-3; a[3]: =-7; a[4]: =-6; a[5]: =-2; a[6]: =-4; a[7]: =-3; sym: =0; for i: =1 to n do beginsym: =sym+a[i]; end; sredn: =sym/n; for i: =1 to n do beginif a[i]>sredn then k: =k+1else if a[i]<sredn then k1: =k1+1; end; writeln ('Кол-во дней, когда температура была выше средней ',k); writeln ('Кол-во дней, когда температура была ниже средней ',k1); end.

А) найдите среднюю температуру за неделю

Задание:

Решение: