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.

#Sha

a. Số chẵn:

uses crt; 
var i,n,s:integer; 
begin 
clrscr; 
writeln(' Nhập n : ' );Readln(n); 
S:=0; 
For i:=1 to n do 
begin 
if (i mod 2) = 0 then s:=s+i; 
end; 
Writeln('Tổng S: ,S);readln; 
END. 

Số lẻ:

uses crt;
var s,dem,i,n:integer;
      a:array[1..100] of integer;
begin
write('nhap n);readln(n);
for i:=1 to n do 
begin; wite('a[i]='); readln(a[i]);
dem:=0; s:=0;
for i:=1 to n do
begin;
if a[i] <0 and a[i] mod 2 = 0 then dem:=dem+1;
if a[i] mod 2 <> 0 then s:=s+a[i];
end;
writeln('co tat ca',dem,' so am chan trong day');
writeln('tong cac so le trong day la',s);
readln;
end.

b, c

Var
a:array[1..100] of integer;
i,n,max,max1:integer;
Begin
readln(n);
For i:=1 to n do
begin
readln(a[i]);
write(a[i]);
end;
writeln;
max:=0;max1:=0;
For i:=1 to n do
if a[i] mod 2=0 then If a[i]>max then max:=a[i];
esle if a[i]>max1 then max1:=a[i];
writeln('so chan lon nhat la:',max);
write('so le lon nhat trong day la:',max1);
readln
end.

_chúc bạn học tốt_