Как найти среднее арифметическое в одномерном массиве, если включен генератор случайных чисел?
Answers & Comments
PopCop312
Var a:array[1..20] of integer; i:integer; sr:real; begin for i:=1 to 20 do begin a[i]:=random(-20,20); sr+=a[i]; write(a[i],' '); end; writeln; write(sr/20:3:2); end.
Answers & Comments
i:integer;
sr:real;
begin
for i:=1 to 20 do begin
a[i]:=random(-20,20);
sr+=a[i];
write(a[i],' ');
end;
writeln;
write(sr/20:3:2);
end.