// 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
Delete YY, ABC = A..1Y...55
exchange A <->Y = Y..1A...55
password Y1A55
Это ряд натуральный чисел растущих от 1 до данного нам количества в сомножителе а потом наоборот тоже самое но убывающих.
<span> Если число оканчивается цифрой 0, то оно делится на 5. Известно, что данное число не делится на 5. Следовательно это число оканчивается на любое число,которое не оканчивается на 5 и 0</span>