Question

найти все нечетные элементы массива целых чисел на паскале

Answer 1

var
a:array[1..10] of integer;
i:integer;

begin
 for i:=1 to 10 do
  begin
   a[i]:=random(10)+1; //или любой другой способ задать массив
   if ((a[i] mod 2)<>0) then write(a[i]);
  end;
end.