Помогите,пожалуйста.
С клавиатуры вводятся положительные и отрицательные целые числа.
Посчитать количество положительных и отрицательных чисел. Концом ввода служит число 1000.
Это всё надо делать в Pascale ABC
Ответы
Ответ дал:
0
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.
Вас заинтересует
2 года назад
2 года назад
7 лет назад
8 лет назад