const N = 10;type matrix = array[1..N, 1..10] of integer;var a: matrix;i, j, k, max: integer; begin randomize; for i := 1 to N do begin for j := 1 to N do begin a[i, j] := random(10); end; end; for i := 1 to N do begin for j := 1 to N do begin write(a[i, j], ' '); end; writeln; end; writeln; for i := 1 to N do begin k := 1;
max := a[i, k]; for j := 2 to N do begin if (a[i, j] > max) then begin k := j; max := a[i, k]; end; end; a[i, i] := a[i, i] + a[i, k]; a[i, k] := a[i, i] — a[i, k]; a[i, i] := a[i, i] — a[i, k]; end; for i := 1 to N do begin for j := 1 to N do begin write(a[i, j], ' '); end; writeln; end; writeln;end.
Добрый день. Меня заинтересовал ваш ответ "Free Pascal:
const N = 10;type matrix = array[1..N, 1..10] of integer;var a: matrix;i, j, k, max:..." на вопрос http://www.liveexpert.org/topic/view/1978005-dana-celochislennaya-kvadratnaya-matrica-najti-v-kazhdoj-stroke-naibolshij-element-i-pomenyat-ego-mestami-s-elementom-glavnoj-diagonali. Можно с вами обсудить этот ответ?