Question

С клавиатуры вводятся целые числа. Количество чисел заранее не известно. Ввод чисел оканчивается нулем. Найти среднее арифметическое введенных чисел. (нужна программа на языке Pascal)

Answer 1

program sapch;

uses

crt;

var

k, s, c: integer;

var

sr: real;

begin

s := 0;

c := 0;

k := 1;

while k <> 0 do

begin

readln(k);

s := s + k;

c := c + 1;

end;

writeln;

sr := s / c;

writeln(sr);

readln;

end.

Answer 2

Конечно, вот пример программы на языке Pascal, которая выполняет указанную задачу:

pascalCopy code
program CalculateAverage;

var
  num, sum, count: Integer;
  average: Real;

begin
  sum := 0;
  count := 0;

  writeln('Введите целые числа. Ввод завершается нулем.');

  repeat
    write('Введите число: ');
    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('Не было введено ни одного числа.');

end.

Программа будет последовательно запрашивать ввод чисел, пока не будет введен ноль. Затем она вычислит сумму введенных чисел и количество чисел (исключая ноль) и найдет среднее арифметическое. Результат будет выведен на экран.