Найти сумму положительных чисел последовательности - 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.

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

8 голосов , оценка 3.625 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы