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

[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 not Odd(A) = 0 then 

?

Потому, что 1) вызов функции, причем 2) сразу непонятно ее назначение... Видишь, и в приведенной мной цитате присутствует ошибка, а при использовании MOD ошибку допустить сложнее...

А поподробней? Плизз.. Я туплю.. Что я спутала?

Смотри на комментарии:

program mas100;
var
  a: array [1..25] of integer;
  i, odds, positives: integer;
begin
  Randomize;
  i:=1;
  While i<=25 do begin
    A[i] := random(81)-40;
    write (A[i], ' ');
    i:=i+1;
  end;

  odds := 0; { <--- Это - число нечетных чисел... Обнулять ПЕРЕД циклом }
  For i:=1 to 25 do begin
    if Abs(A[i]) mod 2 = 1 then odds := odds + 1; { <--- Брать по модулю, mod не работает с отриц. числами}
  end;
  writeln ('chislo nechetnyh = ', odds); { <--- А распечатывать - после цикла }

  positives := 0; { <--- Положительные }
  For i:=1 to 25 do begin
    if A[i] > 0 then positives := positives + 1;
  end;
  writeln ('chislo polozhitelnyh = ', positives); { <--- Аналогично ... }

End.

[TarasBer]

-Почему не if not (odd(A) = 0)
-Потому, что 1) вызов функции

Я думал, что это макрос... Даже если это и функция, то всё равно if ((A and 1) = 0) в моём паскале (TP7.1) почему-то вычисляется дольше, чем if (odd(a) = 0). И в любом случае строчка (mod 2) невыносимо режет глаз... И с отрицательными числами неправильно работает...