Вычислить среднее арифметическое отрицательных чисел - Turbo Pascal

Формулировка задачи:

Пусть дано N вещественных чисел, которые вводятся последовательно по одному. Вычислить среднее арифметическое отрицательных чисел. Результат вывести на экран. Составление и отладка программ с использованием оператора /цикл с постусловием/ Заранее Большое Спасибо, Уважаемые. Добавлено через 10 часов 8 минут up!

Код к задаче: «Вычислить среднее арифметическое отрицательных чисел - Turbo Pascal»

textual
var
  n, k, i: integer;
  p, s: real;
 
begin
  Write('N = ');
  Readln(n);
  for i := 1 to n do
  begin
    Readln(p);
    if p < 0 then
    begin
      s := s + p;
      k := k + 1;
    end;
  end;
  if k = 0 then
    Writeln('Нет отрицательных')
  else
    Writeln('Ответ: ', s / k:0:2);
  Readln
end.

6   голосов, оценка 4.000 из 5


СОХРАНИТЬ ССЫЛКУ