дан одномерный массив, заполненный целыми случайными числами на промежутке от n до m. определить сколько четных элементов стоят на четном порядковом месте.

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

i,s,n,m:integer;

BEGIN

  randomize;

  read(n,m);

  for i := 1 to 100 do

  begin

     a[i]:=random(m-n) +n;

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

  end;

  writeln(s);

END.

var a:array[1..100] of integer;i,s,n,m:integer;BEGIN randomize; read(n,m); for i := 1 to 100 do begin a[i]:=random(m-n) +n; if (i mod 2 =0) and (a[i] mod 2 = 0) then s:=s+1; end; writeln(s);END.