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

[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 шт. чисел, а выводится намного больше. почему? я вроде все правильно сделала.

[мисс_граффити]

Почему вы переставили уменьшаемое и вычитаемое?

не знаю.
действительно, разница с меньшим всегда положительная...

надо все-таки найти точное определение остатка для отрицательных чисел.

Сообщение отредактировано: мисс_граффити - 13.02.2007 0:13