Gộp cả a,b,c nhé:
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.
