Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

Var a: array [1..50] of integer;I, min: integer;BeginFor i:= 1 to 50 doRead (a[i]);Min:= maxint;For i:= 1 to 50 doIf (a[i] < min) and (a[i] mod 2 = 1) thenMin:= a [i];Writeln (min);End.