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

Задан одномерный числовой массив размерностью n элементов. Найти наименьший нечетный элемент.
Гость
Ответ(ы) на вопрос:
Гость
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] 0) then    begin     minel:=a[i];     k:=i;   end;   writeln('номер элемента: ',k,'  значение: ',minel); end.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы