// PascalABC.NET 3.1, сборка 1192 от 07.03.2016
begin
var n:=ReadInteger('n=');
var a:=ArrRandom(n,10,50); a.Println;
var min:=a.Min;
a:=a.Select(x->x-min).ToArray; a.Println
end.
Тестовое решение:
n= 15
17 45 42 15 28 32 33 13 17 26 21 44 37 12 32
5 33 30 3 16 20 21 1 5 14 9 32 25 0 20