Решить в Паскале Заполнить массив 10 случайными числами (0-100)в одномерный массив, затем вычислить их среднее значение и вывести ее на экран.
вам как нужно, алгоритмом через цикл или все равно как, но чтоб работало?
Алгоритмом через цикл
var
a: array[0..20] of integer;
i, n, Sum: integer;
begin
n := 10;
Sum := 0;
Randomize;
for i := 1 to n do
a[i] := Random(101);
Sum := Sum + a[i];
Write(a[i], ' ');
end;
Writeln;
Write('Average = ', Sum / n)
end.