Разработка в среде Turbo Pasсal программы преобразования матрицы
15
x[i]:=k;
k:=0;
write(x[i]:5:1,' ');
end;
writeln;
writeln;
for i:=1 to 3 do
for j:=1 to n do
for h:=1 to n do
if a[i,j]<a[I,h] then
begin
k:=a[i,j];
a[i,j]:=a[I,h];
a[I,h]:=k;
end;
for i:=1 to n do
begin
for j:=1 to n do
write(a[i,j]:7:1);
writeln;
end;
writeln;
for i:=1 to n do
if x[i]>max then
begin
imax:=i;
max:=x[i];