Question

Составьте линейную программу нахождения среднего арифметического четырёх случайных неотрицательных чисел, если известно, что числа не +превышают 50. На экран вывести числа и среднее арифметическое в одну строку. Числа не должны быть написаны слитно. Среднее арифметическое должно быть написано в формате до двух знаков после запятой

Answer 1

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.