Размещено 4 года назад по предмету
Информатика
от lakOR555
как исправить программу? паскаль АВС
задание: посчитать количество отрицательных и положительных чисел (с клавиатуры вводят последовательность чисел до тех пор, пока не будет введен 0)
progran zadanie;
var n, p, a: integer;
begin
n := 0;
p := 0;
writeln('Введите a');
readln(a);
while a <> 0 do
begin
if a < 0
then begin n:=0+1;
writeln('Количество отрицательных чисел: ', n);
end
else if a > 0
then begin p:=p+1;
writeln('Количество положительных чисел: ', p);
end
end
end.