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).
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
By Elliana
a1 a2 a3 a4,….số chẵn a2,a4,a6….
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.