Question

Pascal. В массиве хранятся сведения о количестве осадков, выпавших за каждый день января. Определить общее и среднее количество осадков за январь

Answer 1

const n=31;

var a:array [1..n] of integer;

i,s:integer;

begin

write('Осадки в январе: ');

for i:= 1 to n do

begin

a[i]:= Random(11);

write(a[i],'  ');

s:=s+a[i]

end;

writeln;

writeln('Общее количество осадков за январь: ',s);

writeln('Среднее количество осадков за январь: ',s/n:0:3)

end.