Question

Viết chương trình nhập 1 dãy số nguyên gồm n phần tử. In ra màn hình các phân tử có giá trị chẵn

Answer 1

uses crt;

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

n,i:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do

begin

write('A[',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]:4);

readln;

end.

Answer 2

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 so thu ', i ,' : ');
        readln(A[i]);
    end;
write('Cac so chan : ');
for i := 1 to n do
    if A[i] mod 2 = 0 then 
        write(A[i],' ');
readln
end.