Question

Задан одномерный числовой массив размерностью n элементов. Найти наименьший нечетный элемент.

Answer 1

Const n = 20;
var a: array[1..n] of integer; 
    i,k,minel: integer;
begin
//заполнение массива 
//и вывод массива на экран
  randomize;
  writeln('элементы массива:');
  for i:=1 to n do
  begin
    a[i]:=random(50)-30;
    write(a[i],' ');
  end;
  writeln;
//обработка массива и вывод на экран
  minel:=a[1];
  for i:=2 to n do
  if (a[i]<minel) and (abs(a[i]) mod 2 > 0) then 
  begin
    minel:=a[i];
    k:=i;
  end;
  writeln('номер элемента: ',k,'  значение: ',minel);
end.