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

[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]

Во-первых, не обязательно делать 2 строки там, где можно обойтись одной:

      A[i]:=random(81) - 40;

а во-вторых, какая же четность/нечетность? У тебя числа вещественные... Надо делать массив целых и для каждого проверять

if A[i] mod 2 = 0 then { значит, четное - увеличить счетчик }

Добавлено через 1 мин.

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

Потому, что ты выводишь и при генерации чисел, и после нее, получается - массив выводится 2 раза...