uses crt;

var A : array [1.. 1000] of integer;

i, N : integer;

begin

clrscr;

write('Nhap so phan tu N = '); readln(N);

write('Nhap ', N ,' phan tu mang A : ');

for i := 1 to N do read(A[i]);

write('Phan tu chan o vi tri le : ');

for i := 1 to N do

if (A[i] mod 2 = 0) and (i mod 2 <> 0) then

write(A[i],'   ');

readln

end.

- Ví dụ dãy A : 3 8 6 7 4

+ 3 là số lẻ vị trí lẻ (1)

+ 8 là số chẵn vị trí chẵn (2)

+ 6 là số chẵn vị trí lẻ (3)

+ 7 là số lẻ vị trí chẵn (4)

+ 4 là số chẵn vị trí lẽ (5)

uses crt;

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

i,n: integer;

begin

clrscr;

write ('nhap n: ');  readln (n);

for i:=1 to n do

begin

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

end;

writeln ('cac so chan o vi tri le: ');

for i:=1 to n do

if (a[i] mod 2=0) and (i mod 2=1) then write (a[i]:4);

readln;

end.