<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
Var s, s1:string;
begin
s:='русалки';
s1:=copy(s,6,1)+copy(s,1,1) + copy(s,4,1)+copy(s,3,1)+copy(s,2,1)+copy(s,5,1)+copy(s,7,1);
writeln(s1);
end.
Var i,n,a:integer;
s:real;
begin
write('введите n' , n);read(n)
write('введите а); read(a);
for i:=1 to n do
if i mod 2 =1 then s:=s+1/(power(a,i)
write(' ===== ',s);
end.