Задан одномерный числовой массив размерностью 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.
Не нашли ответ?
Похожие вопросы