uses k195520103135;

var a: array[k195520103135] of longint;

      i,n,ta,td,d: longint;

begin

clrscr;

write ('nhap so phan tu cua mang: ');  readln (n);

for i:=1 to n do

begin

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

if a[i]<0 then ta:=ta+a[i];

if a[i]>0 then td:=td+a[i];

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

end;k195520103135

write ('cac so chan la: ');

for i:=1 to n do if a[i] mod 2=0 then write(i,'   ');

write ('cac so le la: ');

for i:=1 to n do if a[i] mod 2<>0 then write(i,'   ');

writeln ('tong cac so am: ',ta);

writeln ('tong cac so duong: ',td);

writeln ('co ',d,' so 0 trong day so');

readln;

end.

program C;

uses crt;

var i,n,d,t:integer;

       A:array[1..1000] of integer;

begin

clrscr;

write('Nhap so luong phan tu: ');   readln(n);

writeln('NHAP GIA TRI TUNG PHAN TU CUA MANG');

d:=0; t:=0;

for i:=1 to n do

 begin

  write('A[',i,']= ');

  readln(A[i]);

  if A[i] mod 3=0 then

   begin

    d:=d+1; 

    t:=t+A[i];

   end;

 end;

write('Co ',d,' phan tu cua mang la boi cua 3 va tong cua chung la: ',t);

readln

end.