Question

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

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

Answer 1

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. 

Answer 2

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