Pascal написать программу обработки массива : определить минимальный элемент массива. сформировать массив а по формуле ai=xi-xmin

Pascalabc.net 3.4.2, сборка 1864 от 11.11.2018 внимание! если программа не работает, обновите версию!

begin

  var n : = readinteger('количество элементов массива: ');

  var x : = readarrinteger('введите массив х: ', n);

  var xmin : = x.min;

  var a : = x.select(t -> t - xmin).toarray;

  a.println

end.

пример количество элементов массива: 5 введите массив х: -18 42 0 -52 140 34 94 52 0 192

1) #include< iostream> #include< cmath>   void main() {     char ch1, ch2;     int vol1, vol2;           std: : cin > > ch1 > > vol1;         std: : cin > > ch2 > > vol2;                             if (ch1 - ch2) < = 2) & & (abs(vol1 - vol2) < = 2)) & & ((ch1 ! = ch2) & & (vol1 ! = & & (ch1 - ch2)==1) & & (abs(vol1-vol2))==1))             std: : cout < < "possible";                     else             std: : cout < < "impossible";         }3)#include< iostream>   using namespace std;   void main() {     int n,m; cin > > n,m; cout< < n; for(int i=n; i< =m; i++)cout< < i+2; }4)#include < iostream> using namespace std;   void   main(){ int  mass[2][4]    //размерность своего массива вписывай. { { 1, 2, 3, 4 },  //вписывай свои числа. { 1, 2, 3, 4 }    }; for (int i=0 ; i< 2; ++i) { for (int j=0 ; j< 4; ++j) { if(mass[i][j]< 0)   cout< < mass[i][j]; } } system("pause"); }