Помогите,пожалуйста. С клавиатуры вводятся положительные и отрицательные целые числа.

Помогите,пожалуйста.

С клавиатуры вводятся положительные и отрицательные целые числа.
Посчитать количество положительных и отрицательных чисел. Концом ввода служит число 1000.

Это всё надобно делать в Pascale ABC

Дарина Омурзакова 2019-09-26 09:34:10

а "1000" считать как число? или без него посчитать кол-во "-" и "+"?

Tanja Haritenkova 2019-09-26 09:38:32

да, как число

Кирилл 2019-09-26 09:45:04

var ch: array [1..100] of real; min, plus, i, i1: integer;begin inc(i); repeat readln(ch[i]); if ch[i] < 0 then inc(min) else inc(plus); until ch[i] = 1000; writeln('Положительных чисел: ', plus); writeln('Кол-во отрицательных чисел: ', min); readln;end.

Виталий Максецкий 2019-09-26 09:52:27

верно?