<em>// PascalABC.NET 3.2, сборка 1381 от 04.02.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n:=ReadInteger;
var a:=ReadArrInteger(n);
var p:=a[0]; Print(p);
for var i:=2 to a.Length-1 do
if a[i]>p then begin p:=a[i]; Print(p) end;
end.
<u>Пример</u>
15
32 32 66 74 32 54 52 86 87 3 72 66 27 42 60
32 66 74 86 87
Орёл - зрение, Волк обоняние, Летучая мышь - слух, Крот - осязание.
Не видно , и какой вопрос у задания?
<span>100111 / 11 = 1101....</span>