Question

Заполните массив (15) случайными числами в интервале [0,100] и найдите среднее арифметическое его значений. на языке паскаль, , : )

Answer 1

PascalABC.NET 3.4.0, сборка 1670 от 23.05.2018
Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(15,0,100); a.Println;
  a.Average.Println
end.

Пример
65 11 46 1 81 74 17 45 5 79 92 10 39 41 42
43.2

Answer 2

Var a: array [1..15] of integer;
i,s:integer;
begin
for i:=1 to 15 do
begin
a[i]:=random (101);
write (a[i],' ');
s:=s+a[i]
end;
writeln;
writeln ('Среднее арифметическое ',s/15)
end.