Решить в Паскале: Последовательно вводятся N целых чисел. Определить, каких среди них чисел больше: положительных или отрицательных.

Const

nn=100;

var

i, n, d:integer;

a:array[1 ... nn] of integer;

begin

Write ('n = ') ; Read (n) ;

Randomize;

d:=0;

for i:=1 to n do begin

a[i]:=Random (21) - 10;

Write (a[i],' ') ;

if a[i]>0 then d:=d+1

else

if a[i]<0 then d:=d-1

end;

Writeln;

if d>0 then Writeln ('Положительных чисел больше')

else

if d<0 then Writeln ('Отрицательных чисел больше')

else Writeln ('Положительных и отрицательных поровну')

end.

Пример

n = 13

-1 - 5 3 - 3 - 4 - 8 1 6 4 7 - 7 10 7

Положительных чисел больше

Var

cnt1, cnt2, n, tmp:integer;

begin

Readln (N) ;

while n > 0 do

begin

n: = n - 1;

Read (tmp) ;

if tmp > 0 then cnt1: = cnt1 + 1;

if tmp < 0 then cnt2: = cnt2 + 1;

end;

if cnt1 > cnt2 then Writeln ('Положительных больше')

else if (cnt1 = cnt2) then writeln ('Одинаковое количество')

else Writeln ('Отрицательных больше') ;

end.

Пример:

4

-1 - 1 - 1 1

Отрицательных больше