10 КЛАСС! ПАСКАЛЬ АБС! ! ! Дан массив Аn. Опередлите кол-во нечет элементов массиава, стоящих на четных местах. выведите н

10 КЛАСС! ПАСКАЛЬ АБС!! СРОЧНО!! ПОМОГИТЕ ПОЖАЛУЙСТА!

 

 

Дан массив А(n). Опередлите кол-во нечет элементов массиава, стоящих на четных местах. выведите на экран исходный массив и найденное кол-во.

  • const n = 15;
    var
      a: array[1..n] of integer;
      i, count: integer;
    begin
      for i := 1 to n do begin
        a[i] := random(100);
        write(a[i], ' ');
        if(i mod 2 = 0) and (a[i] mod 2 <> 0) then inc(count);
      end;
      writeln;
      writeln('[', count, ']');
    end.