Туристы(отец, мать и два близнеца) должны переправиться через реку. в их распоряжении есть маленькая лодка, вмещающая только одного взрослого или двоих детей. как организовать переправу, если и взрослые, и дети умеют грести?

близнецы переправляются через реку, один высаживается, другой возвращается и ждет на берегу. переправляется на лодке мать. близнец, который находится на другом берегу, теперь уже с матерью, отправляется обратно к отцу с братом, забирает брата и переправляет его на другой берег, после возвращается за отцом. один близнец остался на берегу, отец переправляются через реку. после, близнец возвращается за своим братом. 

Близнецы переправляются через реку, один высаживается, другой возвращается и ждет на берегу. переправляется на лодке мать. близнец, который находится на другом берегу, теперь уже с матерью, отправляется обратно к отцу с братом, забирает брата и переправляет его на другой берег, после возвращается за отцом. один близнец остался на берегу, отец переправляются через реку. после, близнец возвращается за своим братом. вуаля

const n=20;

var a:array [1..n] of integer;

i,max,maxi,min,mini:integer;

begin

write('Массив: ');

for i:= 1 to n do

begin

a[i]:=random(101)+50;

write (a[i],' ')

end;

max:=a[1];

maxi:=1;

min:=a[1];

mini:=1;

for i:= 1 to n do

begin

if a[i]>max then

begin

max:=a[i];

maxi:=i

end;

if a[i]<min then

begin

min:=a[i];

mini:=i

end

end;

writeln;

writeln('Максимальный элемент ',max,' и его номер ',maxi);

writeln('Минимальный элемент ',min,' и его номер ',mini)

end.

Или (если max или min элемент будет не один)

const n=20;

var a:array [1..n] of integer;

i,max,min:integer;

begin

write('Массив: ');

for i:= 1 to n do

begin

a[i]:=random(101)+50;

write (a[i],' ')

end;

max:=a[1];

min:=a[1];

for i:= 1 to n do

begin

if a[i]>max then max:=a[i];

if a[i]<min then min:=a[i]

end;

writeln;

for i:= 1 to n do

begin

if a[i]=max then writeln('Максимальный элемент ',max,' и его номер ',i);

if a[i]=min then writeln('Минимальный элемент ',min,' и его номер ',i)

end

end.