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.
1. Намалювати круг. 2.Визначити радіус. 3.Визначити радіус в інший бік. 4. Поділити круг на чотири рівні частини. 5.Намалювати в кожній частині по одному кружечку. 6.Стерти лінії 7.Замалювати.