Question

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

Answer 1

1. Современное решение (быстро, просто и легко)
// PascalABC.NET 3.2, сборка 1439 от 09.05.2017
// Внимание! Если программа не работает, обновите версию!

begin
  Writeln('Ср.арифм: ',ReadSeqRealWhile(k->k>=0).Average:0:4)
end.

Пример
23 11.7 0 12.9 16.7 13 -12
Ср.арифм: 12.8833

2. Школьный вариант в стиле "1983г." (Turbo Pascal 7.0)

uses Crt;
var
  n:integer;
  x,a:real;
begin
  a:=0;
  n:=0;
  repeat
    Read(x);
    if x>=0 then begin
      n:=n+1;
      a:=a+x
      end
  until x<0;
  a:=a/n;
  Writeln('Ср.арифм: ',a:0:4);
  ReadKey
end.

Answer 2

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

pascalCopy code
program AverageCalculation;

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

begin
  sum := 0;
  count := 0;
  
  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.

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