Question

Написать программу с использованием оператора while в результате работы которой осуществляется ввод чисел и подсчёт количества введённых положительных и отрицательных чисел и их сумма. Ввод осуществляется до тех пор пока не будет введён ноль

Answer 1

program qZiP;
   var n, k1, k2: integer;
begin
   k1:=0;
   k2:=0;
   while <>0 do
   begin
     write (‘Введите целое число>>’);
     readln (n);
     if n>0 then k1:=k1+1;
     if n<0 then k2:=k2+1;
   end;
   writeln (‘Введено:’) ;
   writeln (‘положительных чисел — ‘, k1);
   writeln (‘отрицательных чисел — ‘, k2)
end.