Const w=10000;

var

i,n,sum:integer;

a:array[1..w] of integer;

begin

writeln('Введите кол-во элементов в массиве');

readln(n);

for i:=1 to n do

begin

a[i]:=random(100);

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

inc (sum);

end;

writeln(sum)

Удачи

Ответ:

Это элементарно

var i,n,sum:integer;

Const w=10000;

a:array[1..w] of integer;

   begin;

writeln('Введите кол-во элементов в массиве');

readln(n);

        for i:=1 to n do

     begin

          a[i]:=random(100);

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

    inc (sum);

   end;

 writeln(sum)

end.