Question

Последовательность вводится N целых чисел. Найти среднее арифметическое этих чисел.Паскаль

Answer 1

===== PascalABC.NET =====

begin

 var n := ReadInteger('n =');

 ReadSeqInteger(n).Average.Println

end.

Answer 2

Вот пример программы на языке Pascal, который вычисляет среднее арифметическое последовательности N целых чисел:

pascalCopy code
program AverageCalculation;

var
  N, i, sum: integer;
  number: integer;
  average: real;

begin
  sum := 0;
  
  write('Введите количество чисел в последовательности: ');
  readln(N);
  
  write('Введите ', N, ' целых чисел через пробел: ');
  for i := 1 to N do
  begin
    read(number);
    sum := sum + number;
  end;
  
  average := sum / N;
  
  writeln('Среднее арифметическое: ', average:0:2);
  
  readln;
end.

В этой программе мы сначала объявляем переменные N (количество чисел в последовательности), i (счётчик), sum (сумма чисел), number (переменная для чтения чисел) и average (среднее арифметическое).

Затем мы с помощью оператора readln запрашиваем у пользователя количество чисел в последовательности и сами числа. В цикле for мы считываем числа, прибавляем их к сумме sum.

После этого мы вычисляем среднее арифметическое, разделив сумму на количество чисел. Значение average выводится на экран с помощью оператора writeln.

Программа завершается после нажатия клавиши Enter.