Найти сумму положительных чисел последовательности - Pascal ABC (13381)
Формулировка задачи:
Дорогие господа помогите решить задачку.
Последовательно вводятся N целых чисел. Найти сумму всех положительных среди них. Задачу надо решить 3 способами: циклом по параметру, циклом с предусловием, циклом с постусловием. Без массивов.
Решение задачи: «Найти сумму положительных чисел последовательности»
textual
Листинг программы
program pr;
var
i, n, sum, m: integer;
begin
sum := 0;
writeln('Введите количество чисел');
readln(n);
for i := 1 to n do
begin
readln(m);
if m > 0 then
sum := sum + m;
end;
writeln('Сумма положительных элементов последовательности ', sum);
end.