Помогите

Вводится последовательность из N положительных целых чисел. Найти наименьшее число среди чётных элементов последовательности.

n=1-100

Lazarus

Question

Павлиня

1 февраля, 20:18

+1

Ответы (1)

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

Линя · Answer 1

Var n, min, a:integer;

begin

readln (n) ;

min:=30000;

for n:=n downto 1 do begin

read (a) ;

if (not odd (a)) and (a
end;

writeln (min) ;

end.

ПомогитеВводится последовательность из N положительных целых чисел. Найти наименьшее число среди чётных элементов последовательности.n=1-100Lazarus