Program xuat_mang;

Uses crt;

Var n,i:integer;

       a:array[1..100] of integer;

Begin

Clrscr;

Write('Nhap n:');

Readln(n);

For i:=1 to n do

        Begin

        Write('Nhap pt thu a[',i,']');

        Readln(a[i]);

        End;

Writeln('Cac so chan la:');

For i:=1 to n do

If a[i] mod 2=0 then write(a[i]:6);

Writeln('Cac so le la:');

For i:=1 to n do

If a[i] mod 2<>0 then write(a[i]:6);

Writeln('Cac so am la:');

For i:=1 to n do

If a[i]<0 then write(a[i]:6);

Writeln('Cac so duong la:');

For i:=1 to n do

If a[i]>0 then write(a[i]:6);

Readln;

End.

#LAMTOTNHA

uses crt;

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

i, n : integer;

begin

clrscr;

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

for i := 1 to n do 

begin

write('nhap phan tu thu ', i ,' : '); readln(a[i]);

end;

for i := 1 to n do write(a[i]:4); writeln;

for i := 1 to n do if a[i] mod 2 = 0 then write(a[i]:4); writeln;

for i := 1 to n do if a[i] mod 2 <> 0 then write(a[i]:4); writeln;

for i := 1 to n do if a[i] < 0 then write(a[i]:4); writeln;

for i := 1 to n do if a[i] > 0 then write(a[i]:4); writeln;

readln

end.