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

Узнай цену своей работы

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

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

Решение задачи: «Вычислить среднее арифметическое отрицательных чисел»

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.

Объяснение кода листинга программы

  1. Переменная n и переменная k инициализируются значением 0.
  2. Выводится сообщение N =, после чего считывается значение переменной n.
  3. Запускается цикл for, который выполняется n раз.
  4. Внутри цикла считывается значение переменной p.
  5. Проверяется, является ли значение переменной p отрицательным. Если это так, то выполняется следующая часть условного оператора.
  6. В блоке if считывается значение переменной s и значение переменной k.
  7. Значение переменной s увеличивается на значение переменной p, а значение переменной k увеличивается на 1.
  8. После выполнения блока if выполняется блок else.
  9. Если значение переменной k равно 0, выводится сообщение Нет отрицательных.
  10. В противном случае выводится результат деления значения переменной s на значение переменной k и выводится сообщение Ответ:.
  11. Цикл for завершается, и программа завершается.

Оцени полезность:

6   голосов , оценка 4 из 5
Похожие ответы