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