Представьте в компьютерной записи числа 40, -40, 51, -51, 25, 36, 88, -93, -131, -150

Program prog; uses crt; var a: array [0..100, 0..100] of integer;       x: array [0..100] of integer;       n,m,p,i,j: integer;       begin; clrscr; randomize; write('n = '); readln(n); write('m = '); readln(m); write('p = '); readln(p); writeln; for i: =1 to n do begin       for j: =1 to m do               begin               a[i,j]: = random(101)-50;               write(a[i,j]: 5);                             if (i=p) then               x[j]: = a[i,j];               end;       writeln; end; writeln; for j: =1 to m do write(x[j]: 5); end.

// pascalabc.net 3.2, сборка 1382 от 06.02.2017 // внимание! если программа не работает, обновите версию! begin   var n: =readinteger('количество строк в массиве: ');   var m: =readinteger('количество столбцов в массиве: ');   writeln('*** исходный массив [',n,',',m,'] ***');   var a: =matrrandom(n,m,-99,99);   a.println(4); writeln(4*a.colcount*'-');   var p: =readinteger('номер строки для формирования вектора: ');   var x: =a.row(p-1); x.println end. пример: количество строк в массиве: 6 количество столбцов в массиве: 9 *** исходный массив [6,9] ***   25 -94  49  38  93    6  76  61 -79   49  25 -82 -43 -92 -51 -78  62    4   -31  43 -78 -34  48  19 -17 -26 -98   82  44 -43  36  82  50 -14  39 -87   88 -25  12 -94 -96  68    7    9 -28   96  38 -15 -77 -99 -78 -60 -21  57 номер строки для формирования вектора: 4 82 44 -43 36 82 50 -14 39 -87