profile="http://gmpg.org/xfn/11"> Поиск среднего арифметического в массиве, паскаль. | Разработчику о работе с 1С:Предприятие, Pascal, Паскаль

Поиск среднего арифметического в массиве, паскаль.

Поиск среднего арифметического в массиве, паскаль.

program Sred;

  {Поиск среднего арифметического в массиве, паскаль}
var
  i, i_SumNum, n: integer;
  i_ArrNum: array[1..10] of integer;

begin
n:=0;
  i_SumNum := 0;
   WriteLn('Поиск среднего арифметического в массиве, паскаль');
  WriteLn('Задан одномерный массив из 10 элементов, введите числа');
  for i := 1 to 10 do
      begin
      Readln(i_ArrNum[i]);
      i_SumNum := i_SumNum + i_ArrNum[i]; //суммирование
      n:=n+1; // количество элементов
    end;
  WriteLn('Среднее арифметическое в массиве: ', i_SumNum/n:10:2); //можно было ввести еще одну переменную
  ReadLn();
end.

Результат:
Поиск среднего арифметического в массиве, паскаль
Поиск среднего арифметического в массиве, паскаль.

Комментарии запрещены.