const n=31;
var a:array [1..n] of integer;
i,s:integer;
begin
write('Осадки в январе: ');
for i:= 1 to n do
a[i]:= Random(11);
write(a[i],' ');
s:=s+a[i]
end;
writeln;
writeln('Общее количество осадков за январь: ',s);
writeln('Среднее количество осадков за январь: ',s/n:0:3)
end.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
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.