Еще одна задача на паскале.

Question

Дан целочисленный массив, размером 10. Значения элементов лежат в
интервале [-200;200] и формируются случайным образом. Найти
минимальный четный элемент. Массив и результат вывести на экран.

victor_surozhtsev · Accepted Answer

Var x:array [1..10] of integer; min:integer=202; begin randomize; for k:=1 to 10 do begin x[k]:=random(401)-200; if (not odd(x[k])) and (x[k] < min) then min:=x[k];
writeln(k,' ',x[k]) end; writeln('min = ',min) end.
{ Это если надо найти только значение соответствующего элемента, а не его индекс (ы) ! }