Question

Lập trình n phần tử in ra các phần tử chẵn và phần tử lẻ: Inp 5: 1 2 3 4 5 Out: 1 3 5 2 4

Answer 1

Var a:array[1..200] of integer;

n,i:integer;

Begin

Write('Nhap so luong so = ');readln(n);

For i:=1 to n do

Begin

Write('Nhap so thu ',i,' = ');readln(a[i]);

end;

Writeln('Cac phan tu chan la ');

For i:=1 to n do

If a[i] mod 2 = 0 then write(a[i],'      ');

Writeln('Cac phan tu le la');

For i:=1 to n do

If a[i] mod 2 <> 0 then write(a[i],'    ');

Readln

End.