Bài tập 2 trang 79 SGK Tin học 11

Chương trình sau đây giải bài toán trên:

program Diag;

var

N, i, j, max, Ind, Vsp: integer;

A: array[1..15, 1..15] of integer;

begin

write(‘Nhap N:’);

readln(N),

for i:= 1 to N do for j:= 1 to N do

begin

write(’A[‘,i,’,’,j,’]= ‘);

readln(A[i,j]);

end;

for i:=1 to N do

begin

Max:= A[i,i]; Ind:= 1;

for j:= 2 to N do

if A[i,j] > Max then begin

Max: = A [ i, j ], Ind: = j ‘n

end;

Vsp: =A[i, i] ,A[i,i]:=Max; A[i, Ind] :=Vsp;

end;

for i:= 1 to N do

begin

writeln;

for j:= 1 to N do write(A[i,j]:3);

end;

writeln

End.

Hãy sửa lại chương trình trên khi yêu cầu bài toán thay dòng bằng cột.