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

Question

Помогите,пожалуйста. С клавиатуры вводятся положительные и отрицательные целые числа. Посчитать количество положительных и отрицательных чисел. Концом ввода служит число 1000.Это всё надо делать в Pascale ABC

Comments

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

---

да, как число

---

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.

---

правильно?

Answer 1

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.