С клавиатуры вводится N произвольных натуральных чисел.сколько среди них которые делятся на каждую из своих чисел?
решить на паскаль

Код к задаче: «С клавиатуры вводятся n произвольных чисел. сколько среди них положительных, отрицательных и равных 0?»

Объяснение:

uses crt;

var i,n,c,kp,ko,kn: integer;

begin

write('n='); readln(n);

for i:=1 to n do

   begin

   write('-->'); readln(c);

   if c>0 then inc(kp) else

      if c<0 then inc(ko) else inc(kn);

   end;

writeln('Положительных: ',kp);

writeln('Отрицательных: ',ko);

writeln('Нулевых: ',kn);

end.