Разработчику о работе с 1С:Предприятие, Pascal, Паскаль

Нахождение среднего арифметического, паскаль.

program MidNumArr;

  //нахождение среднего арифметического паскаль, random
const
  N = 10;
var
  i_ArNm: array[1..N] of integer;
  i, i_Sum: integer;
  i_Mid: real;
begin
  i_Mid := 0;
  randomize;
  Writeln('Заполнение массива псевдослучайными числами');
  for i := 1 to N do
    i_ArNm[i] := random(20);
  {Чтение массива, вычисление среднего арифметического массива}
  for i := 1 to N do
  begin
    i_Sum := i_Sum + i_ArNm[i];
  end;
  i_Mid := i_Sum / N;
  WriteLn('Среднее арифметическое: ', i_Mid:5:2);
  //завершение работы программы
  WriteLn('Нажмите <Enter>, чтобы выйти.');
  ReadLn();
end.

Результат:

Нахождение среднего арифметического, паскаль.