Вычислить среднее арифметическое отрицательных чисел - 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.
Объяснение кода листинга программы
- Переменная n и переменная k инициализируются значением 0.
- Выводится сообщение
N =
, после чего считывается значение переменной n. - Запускается цикл for, который выполняется n раз.
- Внутри цикла считывается значение переменной p.
- Проверяется, является ли значение переменной p отрицательным. Если это так, то выполняется следующая часть условного оператора.
- В блоке if считывается значение переменной s и значение переменной k.
- Значение переменной s увеличивается на значение переменной p, а значение переменной k увеличивается на 1.
- После выполнения блока if выполняется блок else.
- Если значение переменной k равно 0, выводится сообщение
Нет отрицательных
. - В противном случае выводится результат деления значения переменной s на значение переменной k и выводится сообщение
Ответ:
. - Цикл for завершается, и программа завершается.