Дан массив а(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-> 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 < iostream> using namespace std; int main() {        int i, n, imin = 0;     cin > > n;     int a[n];     for (i = 0; i < n; i++)         cin > > a[i];     for (i = 0; i < n; i++)         if (a[i] < a[imin]) imin = i;     for (i = 0; i < n; i++)                  cout < < a[i] - a[imin] < < " "; }

pascalabc.net

begin

  // 1

  var a : = matrrandom(5, 6, -10, 10);

  a.println(4);

  var (kn, kz, kp) : = (0, 0, 0);

  for var i : = 0 to a.rowcount - 1 do

    for var j : = 0 to a.colcount - 1 do

      if a[i, j] > 0 then

        kp += 1

      else if a[i, j] = 0 then

        kz += 1

      else

        kn += 1;

  println('отрицательных', kn, ' нулевых', kz,

      ' положительных', kp);

  // 2

  var b : = matrrandom(5, 6, 1, 100);

  b.println(5);

  var s : = b.elementswithindices;

  var imin : = s.minby(p -> p[0]);

  var imax : = s.maxby(p -> p[0]);

  writeln('индексы минимального элемента [',

      imin[1] + 1, ',', imin[2] + 1, ']');

  writeln('индексы максимального элемента [',

      imax[1] + 1, ',', imax[2] + 1, ']');

  // 3

  var c : = matrrandom(5, 9, -3, 5);

  c.println(3);

  print('количество положительных по строкам: ');

  c.rows.select(r -> r.count(p -> p >

end.