program Tin_hoc;

uses crt;

var i,n,am,chan,tongam,tongchan:integer;

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

begin

clrscr;

write('Nhap n<=10000: ');readln(n);

while n>10000 do

begin

 write('Nhap lai: ');readln(n)

end;

writeln('Nhap ',n,' phan tu <=107: ');

for i:= 1 to n do 

begin

write('a[',i,'] : ');readln(a[i]);

while a[i] > 107 do

begin

 write('Nhap lai: ');readln(a[i])

end;

end;

am:=0;chan:=0;tongam:=0;chan:=0;

for i:= 1 to n do begin if a[i]<0 then

begin

am:=am+1;

tongam:=tongam+a[i]

end;

if (a[i] >=0) and (a[i] mod 2=0) then

begin

chan:=chan+1;

tongchan:=tongchan+a[i]

end;

end;

writeln('Co tat ca ',am,' so hang am va tong bang ',tongam);

writeln('Co tat ca ',chan,' so hang duong va tong bang ',tongchan);

readln;

end.

Program Hotboy;

Uses crt;

Var A:array[1..10000] of Longint;

Chan,I,n : integer;

Am,S1,S2:real;

Begin

Clrscr ;

Am:=0; chan:=0; S1:=0; S2:=0;

Write('nhao so phan tu trong day'); readln(n);

For i:=1 do n do 

Begin

Repeat

Write('A[',i,']'); readln(A[i]); 

Until A[i] <=10000000 ;

End;

For i:=1 to n do

Begin

If A[i] mod 2=0  then chan:=chan+1;

S1:=S1+A[i];

If A[i] <0 then am:=am+1 ;

S2:=S2+A[i];

Writeln('So cac phan tu am la',am,'tong cua chung la',S2); 

Writeln('so cac phan tu chan la',chan,'tong cua chung la',S1);

End;

Readln

End.