Question

Паскаль: Дана последовательность целых чисел, ввод последовательности заканчивается 0 (до первого введенного нуля), найти среднее арифметическое чисел из последовательности

Answer 1

Var temp, sum, n:integer;
begin
  sum:=0;
  n:=0;
  read(temp);
  while(temp>0) do
  begin
    inc(sum,temp);
    inc(n);
    read(temp);
  end;
  writeln;
  writeln(sum/n)
end.

Answer 2

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

1. Инициализируйте переменные `sum` и `count` со значением 0. Переменная `sum` будет использоваться для хранения суммы чисел из последовательности, а переменная `count` - для подсчета количества чисел.

2. Запросите у пользователя ввод числа.

3. Проверьте, является ли введенное число нулем. Если это так, перейдите к следующему шагу. В противном случае, выполните следующие действия: - Увеличьте значение переменной `sum` на введенное число. - Увеличьте значение переменной `count` на 1. - Вернитесь к шагу 2.

4. Если значение переменной `count` равно 0, выведите сообщение об ошибке, так как последовательность не содержит чисел.

5. Вычислите среднее арифметическое, разделив значение переменной `sum` на значение переменной `count`.

6. Выведите полученное среднее арифметическое на экран.

Вот пример кода на языке Паскаль, реализующего этот алгоритм:

program AverageCalculation;

var
  number, sum, count: Integer;

begin
  sum := 0;
  count := 0;

repeat
    Write('Введите число (для завершения введите 0): ');
    Readln(number);

if number <> 0 then
    begin
      sum := sum + number;
      count := count + 1;
    end;
  until number = 0;

if count = 0 then
    Writeln('Последовательность не содержит чисел.')
  else
    Writeln('Среднее арифметическое: ', sum / count:0:2);
end.

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