program ;
uses crt;
var
a:array[1..100] of integer;
i:integer;
s:real;
begin
clrscr;
randomize;
for i:=1 to 100 do
begin
a[i] := random(100)+1;
s:=s+a[i];
end;
s:=s/100;
writeln(s:20:2);
end.
Объяснение:
Массив 'a' заполняется рандомными числами в цикле for, где параллельно с этим в переменную 's' добавляется значения массива с индексом 'i'. После цикла 's' делиться на 100 тем самым получая среднее арифметическое, а после результат выводится.
