Пусть дана матрица А (n х m). Разработать приложение, позволяющее построить вектор,…

Program test; uses crt; var arr: array[1… 5,1… 10] of integer; vec: array[1… 10] of integer; i,j: integer; begin clrscr; randomize; for i: =1 to 5 do begin for j: =1 to 10 do begin arr[i,j]: =random (19) -9; write (arr[i,j],'); end; writeln; end; for j: =1 to 10 do begin vec[j]: =abs (arr[1,j]); for i: =1 to 5 do if vec[j]>abs (arr[i,j]) then vec[j]: =abs (arr[i,j]); end; writeln; for i: =1 to 10 do write (vec[i],'); end.