Заполните массив случайными числами в интервале [0;100] и найдите его среднее арифметическое - Pascal ABC

Формулировка задачи:

СДЕЛАТЬ ЧЕРЕЗ CONST Заполните массив случайными числами в интервале [0;100] и найдите среднее арифметическое его значение Пример: массив: 1 2 3 4 5 среднее арифметическое 3.000

Код к задаче: «Заполните массив случайными числами в интервале [0;100] и найдите его среднее арифметическое - Pascal ABC»

textual
const
  n = 5;
 
var
  a: array[1..n] of integer;
  i: integer;
  sr: real;
 
begin
  randomize;
  sr := 0;
  for i := 1 to n do
  begin
    a[i] := random(101);
    sr := sr + a[i];
  end;
  writeln(sr / n:8:2);
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

5   голосов, оценка 3.800 из 5


СДЕЛАЙТЕ РЕПОСТ