А) найдите среднюю температуру за неделю (температура была: -5, ...

Дмитрий

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]