Найти количество нечетных чисел Опции

[inomarka]

Дан массив 25 случайных чисел от -40 до 40. Вывести а) количество нечетных б) количество положительных

Если честно, на то, чтобы напечатать массив, найти сумму, ср.арифметическое и т.п. , у мя мозгов еще кое-как хватает. А вот с количеством... Мы задач не решали похожих, и примера нет( Можете помочь найти кол-во?

 
Program mas100;
var
a: array [1..25] of real;
i: integer;
Ch:char;
Begin
  Randomize;
  i:=1;
  While i<=25 do
      begin
      A[i]:=random(81);
      A[i]:=A[i]-40;
      write (A[i]:3:0, ' ');
      i:=i+1;
      end;
  For i:=1 to 25 do
  write (a[i]:3:0, ' ')
....

.

Еще проблема: мне должно выводиться 25 шт. чисел, а выводится намного больше. почему? я вроде все правильно сделала.

[volvo]

if (odd(a) = 0)

вообще НЕ работает... По крайней мере не должен... Odd - это Boolean, а не Integer...

И в любом случае строчка (mod 2) невыносимо режет глаз...

Не забыл добавить слово МНЕ? Ибо для меня, например, это совершенно нормальная форма записи...