Viết chương trình nhập N số nguyên từ bàn phím: a, in ra màn hình các số chẵn, số lẻ b, tính và in ra màn hình tổng các số âm, tổng các số dương c, đếm các số không có trong dãy số đó

uses crt;

var a: array[1..100] 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;

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.

??????

học tốt

uses crt;

var a: array[1..100] of longint;

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

begin

clrscr;

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

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

ta:=0;  td:=0;  d:=0;

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;

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.