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[i] mod 2=0 then write (A[i]:6);
For i:=1 to n do if A[i] mod 2<> 0 then write (A[i]:6);
For i:=1 to n do if A[i] <0 then write (A[i]:6);
For i:=1 to n do if A[i] >0 then write (A[i]:6);
Thank you !!!!
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