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

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]
end;

writeln ('Кол-во дней, когда температура была выше средней ', k) ;

writeln ('Кол-во дней, когда температура была ниже средней ', k1) ;

end.