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

program baitap;

uses crt;

var A:array[1..10000] of integer;

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

begin

clrscr;

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

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

for i:=1 to n do

 begin

  write('phan tu thu ',i,': ');

  readln(A[i]);

 end;

write('Cac so chan co trong day la: ');

for i:=1 to n do

 if A[i] mod 2=0 then

  write(A[i],' ');

writeln;

write('Cac so le co trong day la: ');

for i:=1 to n do

 if A[i] mod 2=1 then

  write(A[i],' ');

ta:=0;   td:=0;

for i:=1 to n do

 if A[i]<0 then ta:=ta+A[i]

 else td:=td+A[i];

writeln('Tong cac so am trong day la: ',ta);

writeln('Tong cac so duong co trong day la: ',td);

d=0;

for i:=1 to n do

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

write('Co ',d,' so 0 o trong day');

readln

end.