Question

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

Answer 1

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