Паровозы кажется могут толкать состав назад, ехать как задом так и передом и тп. Иначе я не знаю.
Первый поезд делится на (паровоз+10) и 11 вагонов.
И эту десятку паровоз тянет в тупичек.
Второй поезд проезжает тупичек.
Паровоз первого вытягивает свою десятку на свободный путь
Второй паровоз толкает свой состав так чтоб стать перед тупичком
Второй паровоз отцепляется и прицепляется к оставшимся 11 вагонам.
Второй паровоз задом запихивает 11 вагонов в тупичек
Второй паровоз берет свой состав и уезжает
Первый паровоз забирает свои 11 вагонов
// PascalABC.NET 3.1, сборка 1179 от 29.02.2016
begin
var b:=ArrRandom(ReadInteger('n='),10,99); b.Println;
var a:=b.Reverse.ToArray;
a.Println
end.
<u><em>Тестовое решение:</em></u>
n= 13
53 75 96 56 24 37 99 57 96 41 51 31 50
50 31 51 41 96 57 99 37 24 56 96 75 53
Требуемое значение можно вычислить по формуле вида:
=СУММЕСЛИМН(C2:C11;C2:C11;">100";C2:C11;"<200")
(в примере в ячейках диапазона C2:C11 записана стоимость товаров)
Const
N = 3;
Var
A:Array[1..N,1..N] of integer;
i,j:integer;
Begin
Randomize;
WriteLn('Исходный массив:');
For i:= 1 to N do
Begin
For j:= 1 to N do
Begin
A[i,j]:=random(21)-10;
Write(A[i,j]:3,' ')
End;
WriteLn
End;
WriteLn('↓↓↓↓↓↓↓↓↓↓↓↓↓');
For i:= 1 to N do
A[i,i]:=5;
For i:= 1 to N do
Begin
For j:= 1 to N do
Write(A[i,j]:3,' ');
WriteLn
End;
End.
це слово-підкова.)))))))))))))))))))))))))))))))