Nhập vào một mảng A các số nguyên (không quá 500 phần tử), hãy đếm xem trong mảng A có bao nhiêu số chẵn, đưa ra màn hình các số chẵn mỗi số cách nhau một dấu cách.
Nhập vào một mảng A các số nguyên (không quá 500 phần tử), hãy đếm xem trong mảng A có bao nhiêu số chẵn, đưa ra màn hình các số chẵn mỗi số cách nhau một dấu cách.
var a: array[1..500] of longint;
d,n,i: longint;
begin
write(‘Nhap n: ‘); Readln(n);
for i:=1 to n do
begin
read(a[i]);
if a[i] mod 2 = 0 then inc(d);
end;
writeln;
writeln(‘So so chan la: ‘,d);
for i:=1 to n do
if a[i] mod 2 = 0 then write(a[i],’ ‘);
readln;
end.
Program BTT;
Uses crt;
Var A: array[1..500] of longint;
n,i,d: longint;
Begin
Clrscr;
Write(‘Nhap n: ‘); Readln(n);
d:=0;
For i:=1 to n do
Begin
Write(‘A[‘,i,’] = ‘);
Readln(A[i]);
If A[i] mod 2 = 0 then inc(d);
End;
Writeln(‘Co ‘,d,’ so chan’);
For i:=1 to n do
If A[i] mod 2 = 0 then Write(A[i],’ ‘);
Readln
End.