Предмет: Информатика,
автор: sergiologinov98
Составьте программу, выполняющую поиск минимального нечетного элемента в заданном целочисленном массиве из 50 элементов.Известно, что в массиве есть хотя бы один нечетный элемент.
Ответы
Автор ответа:
0
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.
Похожие вопросы
Предмет: Русский язык,
автор: Диана08112004
Предмет: Русский язык,
автор: AlisaLisa55
Предмет: Українська література,
автор: смішріки
Предмет: Биология,
автор: 52dinara
Предмет: Русский язык,
автор: Milushiarmy