Человек, умеющий читать и писать, казался египтянам мудрецом потому, что образование в то время мало было развито. И тот человек, который умел читать и писать казался египтянам очень умным, так как в то время практически никто не умел делать это.
Всё сделано лично мной. Копирование запрещено©
// PascalABC.NET 3.1, сборка 1201 от 18.03.2016
begin
var a:=ReadArrInteger(20);
var b:=a.Where(x->x in [10..99]).Where(x->x.IsEven);
if b.Count>0 then Writeln(b.Min)
else Writeln('Не найдено');
end.
<u><em>Тестовое решение:</em></u>
7497 9647 3684 848 6349 37 1281 3739 465 7784 16 406 6936 621 4960 98 1894 3825 3369 6566
16
Var
s:string;
max,min:char;
begin
write('Введите число: '); readln(s);
max:=s[1]; min:=s[1];
for var i:=2 to s.Length do begin
if min>s[i] then min:=s[i];
if max<s[i] then max:=s[i];
end;
writeln('max = ',max);
writeln('min = ',min);
end.