C клавиатуры вводятся 10 целых чисел. Определить, каких больше: положительный или отрицательных.

const     N = 10;
var 
  i,otr,pol,K: integer;
BEGIN
otr:=0; //отриацательные числа
pol:=0; //положительные числа
for i:=1 to N do
begin   
Write(Введите число  #, i, : ); Read(K);   
if (K < 0) then inc(otr)   
else        
 if (K <> 0) then inc(pol);
end;
if (otr > pol) then Writeln(Отрицательных больше)else writeln(Положительных больше);end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.