девять вагонов
-----------------------------
В кампьютер будет обновляется сам даже без интернета игры. Будут без вирусов. Социальные сети будут работать без интернета. И все ответы на вопросы были в самом интернете.
Во первых, второй из вложенных циклов for i:=j to 6 заменить на for i:=j+1 to 6; во вторых, переменная t не инициализируется перед входом в цикл по i , и берется ее предыдущее значение
если на месте j уже стоит наименьшее число, поэтому, в строках for j:=1 to 6 do
begin
<span>min:=a[j]; добавить после min:=a[j]; t:=j; после этого будет массив сортироваться по возрастанию.
</span>
Const
m = 10;
var
a: array[1..m+1] of integer;
i, k: integer;
begin
write ('Исходный массив: ');
for i := 1 to m do
begin
a[i] := random(100);
write (a[i],'; ');
end;
writeln;
write('Введите число: ');
readln(k);
for i:=m+1 downto 1 do
begin
a[i]:=a[i-1];
if a[i] mod 2=0 then
begin
a[i-1]:=k;
break;
end;
end;
write('Измененный массив: ');
for i := 1 to m+1 do
write (a[i],'; ');
<span>end.</span>
Обозначим:
Д - один из близнецов.
М - мама.
П - папа.
Левый берег - начало.
Правый берег - конец.
1. Отправим двух близнецов.
МП...ДД
2. Оставим одного на правом берегу, другого отправим на левый. Плывет папа.
ДМ...ДП
3. Отправим близнеца с правого берега на левый, заберем брата на правый берег.
М...ДДП
4. Отправляем близнеца налево, мама плывет.
Д...ДМП
5. Другой близнец плывет за братом и вместе оказываются на правом берегу.
...ДДМП
Во втором пункте неважно кого из взрослых отправить первым.