Дана матрица a(n, m). получить вектор x(m), равный p-ой строке матрицы.

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

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.

Program vladimir37005; const n=5; var a: array[1..n] of integer;           i,min,k: integer; begin for i: =1 to n do begin write('a[',i,']='); read(a[i]); end; min: =a[1]; k: =1;   for i: =1 to n do if (a[i] < min)  then  begin  min: =a[i]; k: =i;   end;   for i: =1 to n do if (a[i] < 0) and (a[i] > min)  then begin  min: =a[i]; k: =i; end; a[k]: =0; for i: =1 to n do write(a[i],' '); end.