Массив задан датчиком случайных чисел на интервале [-37, 66]. Найти наименьший нечетный элемент. Размер произвольный.

Question

Информатика

Иля

23 апреля, 05:44

Массив задан датчиком случайных чисел на интервале [-37, 66]. Найти наименьший нечетный элемент. Размер произвольный.

+2

Ответы (1)

Знаете ответ?

Ульяха · Answer 1

const

n=15;

var

a:array [1 ... n] of integer;

i, min:integer;

begin

randomize;

for i:=1 to n do begin

a[i]:=random (104) - 37;

write (a[i],' ') ;

end;

writeln;

min:=a[1];

for i:=2 to n do

if (odd (a[i]) = true) and (a[i]
writeln (min) ;

readln;

end.