Question

Viết chương trình nhập 10 số nguyên. Xuất ra màn hình số số chẵn

Answer 1

Var i: Integer;

A: array [1..10] of Integer;

Begin

Writeln('Nhap cac phan tu cua day so');

For i:= 1 to 10 do

begin

Writeln('a[',i,']=);

Readln(a[i]);

end;

Writeln('Cac so chan la');

For i:= 1 to 10 do if a[i] mod 2 = 0 then write (a[i],' ');

Readln;

End.

Answer 2

uses crt;

var i,m:longint;

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

begin

for i:=1 to 10 do begin

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

end;

writeln('cac so chan trong mang la:');

for i:=1 to 10 do

if a[i]mod 2=0 then writeln(a[i]);

readln

end.