Program n1;
var a: array[1..30] of integer;
n,i: integer;
function st(i: integer): integer;
begin
st:=1;
for i:=1 to i do st:=st*2
end;
begin
readln(n);
for i:=1 to n do a[i]:=st(i);
for i:=n downto 1 do write(a[i],' ');
end.
Берет козу и едет на др берег
Возвращается
Берет волка едет на другой берег
На другом берегу оставляет волка забирает козу
Едет на другой берег оставляет козу берет капусту
Едет на другой берег оставляет капусту
Возвращается
Забирает козу и едет на др берег
Качество картинки не самое лучшее
<em>// PascalABC.NET 3.2, сборка 1346 от 25.11.2016</em>
<em>// Внимание! Если программа не работает, обновите её версию!</em>
// сортировка выбором
procedure SortBySelect(var a:array of integer);
begin
var j:=a.High;
while j>0 do begin
var mx:=a[0];
var imx:=0;
for var i:=1 to j do
if a[i]>mx then begin mx:=a[i]; imx:=i end;
a[imx]:=a[j];
a[j]:=mx;
j-=1
end
end;
begin
var a:=ArrRandom(10,-20,20); a.Println;
SortBySelect(a); a.Println
end.
<u>Пример</u>
-6 14 2 -6 -6 -9 20 -18 13 -18
-18 -18 -9 -6 -6 -6 2 13 14 20