Question

Задача №1. Дана последовательность целых чисел. Напишите программу, подсчитывающую, сколько в этой последовательности отрицательных чисел. Задача №2. Дана последовательность целых чисел. Напишите программу, вычисляющую сумму положительных чисел.

Answer 1

№1                                        

program raf105;

var a,otr: integer;

begin

writeln('Вводите числа по очереди');

writeln('Чтобы закончить введите 0');

repeat

 readln(a);

 if a<0

   then otr+= 1;

until a = 0;

writeln('Отрицательных чисел: ',otr);

end.

№2                                        

program raf105;

var a,sum: integer;

begin

writeln('Вводите числа по очереди');

writeln('Чтобы закончить введите 0');

repeat

 readln(a);

 if a>0

   then sum+= a;

until a = 0;

writeln('Сумма положительных чисел: ',sum);

end.

                                             

PascalABC 3.4.2