Question

В одном массиве произвольных чисел найдите количество нечетных элементов (Паскаль)

Answer 1

const
  n=20;
var
  a:array[1..n] of integer;
  i,s:integer;
begin
  writeln('Исходный массив');
  s:=0;
  Randomize;
  for i:=1 to n do begin
    a[i]:=Random(100)-50;
    if a[i] mod 2 <> 0 then s:=s+1;
    write(a[i]:5)
  end;
  writeln;
  writeln('Количество нечетных элементов равно ',s)
end.

Тестовое решение:

Исходный массив
  -10  -26   -5   36  -48   41  -10    5   46   -1   -5    1   19  -11  -10   31    9  -31   -4  -40
Количество нечетных элементов равно 11