Var
n, max, i, d: integer;
begin
readln(n);
max := 0;
for i := 1 to n do
begin
readln(d);
if (d mod 10 = 9) and ((max < d) or (max = 0)) then
max := d;
end;
writeln(max);
end.
Возможно, что гиперссылки
<span>Начинать нужно с козы. Крестьянин, перевезя козу, возвращается и берет волка, которого перевозит на другой берег, где его и оставляет, но зато берет и везет обратно на первый берег козу. Здесь он оставляет ее и перевозит к волку капусту. Вслед за тем, возвратившись, он перевозит козу. так вот</span>