uses crt;
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.
