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