СРОООЧНОО... ПОМОГИТЕ...Составить программу, в которой осуществляется ввод целых чисел,...

Question

СРОООЧНОО... ПОМОГИТЕ...Составить программу, в которой осуществляется ввод целых чисел, (пока не будет введен ноль) и подсчет количества введенных положительных и отрицательных чисел через оператор whileОчень прошу не соображаю в этой теме прошу помочь хороших людей))

Comments

Помочь то можно, только пойдет ли в прок.

---

всмысле?

---

ну помогите оченнь нужно

Answer 1

begin

 var n: integer;

 var (CountP, CountN) := (0, 0);

 while True do

 begin

   Read(n);

   if n > 0 then CountP += 1

   else if n < 0 then CountN += 1

   else break

 end;

 Write('Положительных: ', CountP,

 NewLine, 'Отрицательных: ', CountN)

end.

---