Как сделать, чтобы он печатал 2 матрицу рандомного ввода слева-направо, а не сверху-вниз?
procedure Sort; Uses Crt; var a:array[1..10,1..10]of integer; n,i,j,max,h,l,sp:integer; begin ClrScr; Repeat; Write('Введите размерность матрицы (n>0)and(n<=10)'); Readln(n); Until( (n>0)and(n<=10) ); writeln('Для ввода вручную нажмите 1, случайными числами - любую клавишу'); readln(sp); {Выбор способа ввода} if sp = 1 then begin max:=-maxint; For i:= 1 to n do For j:= 1 to n do BEGIN gotoxy(j*7,i*4); Read(a[i,j]); if(a[i,j]>max)then begin max:=a[i,j]; h:=i; l:=j; end; end; end else begin for i := 1 to N do {Вводслучайнымичислами} begin for j := 1 to N do begin gotoxy(i*7,j*4); a[i,j] := -50 + random(101); write(a[i, j]); if(a[i,j]>max)then begin max:=a[i,j]; h:=i; l:=j; end; end; end; end; writeln; for j:=1 to n do a[h,j]:=-a[h,j]; for i:=1 to n do a[i,l]:=-a[i,l]; a[h,l]:=-a[h,l]; writeln; for i:=1 to n do begin for j:=1 to n do write(a[i,j],' '); writeln; end; write(' max=', max, ' №i=', h, ' №j=', l); writeln; end.
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.