Hãy viết chương trình nhập số nguyên dương n ( n<= 1000) từ bàn phím tạo mảng A gồm n số nguyên A1, A2,.. An từ bàn phím. Tìm các số chẵn trong mảng A. Đưa ra màn hình các số chẵn và chỉ số của các phần tử chẵn đó (mỗi số chẵn được viết trên một dòng).
2 câu trả lời
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;
for i:= 1 to n do
if a[i] mod 2 = 0 then
write('So chan: ',a[i],' va chi so: ',i);
readln
end.
