Составьте линейную программу нахождения среднего арифметического четырёх случайных неотрицательных чисел, если известно, что числа не +превышают 50. На экран вывести числа и среднее арифметическое в одну строку. Числа не должны быть написаны слитно. Среднее арифметическое должно быть написано в формате до двух знаков после запятой
pascal
Объяснение:
const
n = 4;
var
a: array of integer;
i: integer;
s: real;
begin
SetLength(a, n);
for i := 0 to n - 1 do
begin
a[i] := round(random(51));
s := s + a[i];
Write(a[i], ' ');
end;
WriteLn(s/n:2:2);
end.