Дан массив А(n). Уменьшить все его элементы на малый элемент массива.

// 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-gt;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

C++

include lt;iostreamgt;
using namespace std;
int main()
   
    int i, n, imin = 0;
    cin gt;gt; n;
    int a[n];
    for (i = 0; i lt; n; i++)
        cin gt;gt; a[i];
    for (i = 0; i lt; n; i++)
        if (a[i] lt; a[imin]) imin = i;
    for (i = 0; i lt; n; i++)       
        cout lt;lt; a[i] - a[imin] lt;lt; " ";