Question

Составьте программу, выполняющую поиск минимального нечетного элемента в заданном целочисленном массиве из 50 элементов.Известно, что в массиве есть хотя бы один нечетный элемент.

Answer 1

Var a: array [1..50] of integer; I, min: integer; Begin For i:= 1 to 50 do Read (a[i]); Min:= maxint; For i:= 1 to 50 do If (a[i] < min) and (a[i] mod 2 = 1) then Min:= a [i]; Writeln (min); End.