program CTNMT;
uses crt;
var n,i,dem: longint;
A: array [1..1000] of longint;
Begin
Writeln('Ban hay N'); Readln(n);
for i:=1 to n do
begin
Writeln('Nhap so thu ',i); Readln(a[i]);
end;
Writeln('In ra mang:');
for i:1 to n do Write(a[i]:5);
writeln;
Writeln('In ra so chan trong mang');
for i:= 1 to n do
begin
if (a[i] mod 2) = 0 then Write(a[i]:5)
if a[i] < 0 then dem:= dem +1;
end;
writeln('so so nguyen am la: ',đem);
REadln;
end.
HOẶC
program BT;
uses crt;
var A:array [1..500] of integer;
n,i,d,max: integer;
Begin
clrscr;
write('Nhap so phan tu: '); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(A[i]);
end;
write('Cac phan tu la so 0: ');
for i:=1 to n do
if A[i]=0 then write(A[i],' ');
writeln;
write('Cac phan tu la so nguyen duong: ');
for i:=1 to n do
if A[i]>0 then
begin
write(A[i],' ');
d:=d+1;
end;
writeln;
writeln('Co ',d,' phan tu la so nguyen duong');
max:=A[1];
for i:=2 to n do
if max<A[i] then max:=A[i];
write('Phan tu co gia tri lon nhat la: ',max);
readln
End.
