Дан массив из n элементов. определить количество элементов, которые являются нечетными числами. в паскале.

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.

Питаются кагуаны исключительно растительной пищей — листвой, почками, цветами и деревьев. большую часть рациона составляют молодые листья.  редко вокруг какого животного ведется столько споров, как вокруг кагуанов. это животное, размером с кошку, одни причисляют к «летающим» землеройкам, другие к лемурам, а некоторые выделяют когуана вообще в отдельный отряд. внешне, особенно мордочкой, он действительно похож на лемура, а вот зубы типичны для грызунов.  самая же отличительная черта когуана – перепонка, с которой он летает. перепонка натянута от подбородка через концы лап до кончика не длинного хвоста и представляет собой этакий парашют. кстати, парашют у кагуаны самый большой среди «летающих» животных (кроме птиц и летающих мышей к полетам причастны белки-летяги, сумчатые летяги, обезьяны колобус, летающие ящерицы или драконы, а также летающие лягушки и даже рыбы) 

// PascalABC.NET 3.1, сборка 1230 от 27.04.2016
begin
  var s:=ReadLines('in.txt').ToArray;
  var n:=StrToInt(s[0]);
  var a:=s[1].ToWords.Select(e->StrToInt(e)).ToArray;
  var f:=OpenWrite('out.txt');
  Writeln(f,n,' - (кол-во чисел)');
  foreach var e in a do Write(f,e,' '); Writeln(f);
  Writeln(f,'Среднее значение четных ',
    a.Where(x->x.IsEven).Average);
  Writeln(f,'Среднее значение нечетных ',
    a.Where(x->x.IsOdd).Average);
  f.Close
end.

Файлы in.txt и out.txt находятся во вложении.

Содержимое файла out.txt:
15 - (кол-во чисел)
-22 49 33 47 -10 -1 20 -18 2 21 2 -25 21 -47 -36
Среднее значение четных -8.85714285714286
Среднее значение нечетных 12.25