Question

На языке программирования Pascal составить программу, которая находит среднее арифметическое чисел, введенных с клавиатуры. Концом ввода чисел считать ввод 0.  (числа 22 и 66)

Answer 1

// PascalABC.NET 3.4

begin

    ReadSeqIntegerWhile(n->n<>0).Average.Println

end.

Answer 2

Для нахождения среднего арифметического чисел, введенных с клавиатуры, в языке программирования Pascal, вы можете использовать следующий код:

pascalCopy code
program CalculateAverage;

var
  num, sum, count: integer;
  average: real;

begin
  sum := 0;
  count := 0;

  writeln('Введите числа. Ввод 0 прекратит ввод и вычислит среднее арифметическое.');
  
  repeat
    readln(num);
    if num <> 0 then
    begin
      sum := sum + num;
      count := count + 1;
    end;
  until num = 0;

  if count > 0 then
  begin
    average := sum / count;
    writeln('Среднее арифметическое:', average:0:2);
  end
  else
    writeln('Вы не ввели числа для вычисления среднего арифметического.');

  readln;
end.

Обратите внимание, что в данной программе ввод чисел прекратится при вводе 0. Затем программа вычислит и выведет среднее арифметическое введенных чисел на экран.