Làm giúp mình với mai mình thi rồi Đề: viết chương trình xuất mảng chẵn,lẻ,âm,dương Câu lệnh: For i:=1 to n do write (A[i]:6); For i:=1 to n do if A[

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