nhập vào mảng gồm n phần tử mảng nhỏ hơn 100pt mỗi phần tử nhỏ hơn 500 đếm số phần tử chẵn ở vị trí lẽ

uses crt;

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

i, n, d : integer;

begin

clrscr;

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

i := 1; d := 0;

while i <= n do 

    begin

        write('Nhap so thu ', i ,' : '); 

        readln(A[i]); 

        if A[i] >= 500 then i := i

        else i := i + 1; 

    end;

for i := 1 to n do 

    if (A[i] mod 2 = 0) and (i mod 2 <> 0) then d := d + 1;

write('Co ', d ,' phan tu chan o vi tri le');

readln

end.

Phần tử chẵn ở vịtrí lẽ là các phần tử a[i] mà tại đó

+ a[i] chẵn ⇒ a[i] mod 2 = 0

+ i lẽ ⇒ i mod 2 $\neq$ 0

Code

Program demso;
Uses crt;
Var a:array[1..1000] of integer;
i,n,d:longint;
BEGIN
clrscr;
Readln(n);
For i := 1 to n do Readln(a[i]);
d:=0;
For i := 1 to n do 
    If ((i mod 2 <> 0) and(a[i] mod 2 = 0)) then d:=d+1;
Writeln(d);
Readln;
END.