// PascalABC.NET 3.1, сборка 1172 от 19.02.2016
begin
var a:=ArrRandom(ReadInteger('n='),-50,50);
a.Println;
Writeln('Разность: ',a.Max-a.Min)
end.
<u><em>Тестовое решение:</em></u>
n= 15
28 -35 2 25 20 -48 47 24 1 9 17 24 -32 -41 -14
Разность: 95
1. Ответ: 47
2. Ответ: 2209
3. Ответ: 8836
Переходите от одного квадрата к другому, выбирая при этом ту цифру, которая меньше – таким образом вы ищите кратчайший путь.
Ответ:
PascalABC.NET
begin
var arr := ArrRandom(15, 5,500);
arr.Where(x -> x mod 3 = 0).Where(x -> x mod 9 = 0).Product.Println;
end.