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

Question

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

Answer 1

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.

 

Answer 2

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.