Question

Напишите программу, которая в последовательности натуральных чисел определяет минимальное чётное число. программа получает на вход количество чисел в последовательности, а затем сами числа. в последовательности всегда имеется чётное число. проgа нужна на языке паскаль.

Answer 1

//PascalABC.NET
//Версия 3.3, сборка 1634
begin
write(ReadSeqInteger(ReadInteger).Where(x->x.IsEven).Min);
end.

Answer 2

Var count,min,this : integer;
begin
min:= maxint-1;
read(count);
for var i:= 1 to count do
begin
Read(this);
if(this mod 2 = 0) and (this<min) then
min:= this;
end;
writeLn(min);
end.