Дана матрица А (п, т) . Поменять местами строку, содержащую элемент с наибольшим значением, со строкой, содержащей элемент с наименьшим значением (предполагается, что эти элементы единственны).
На Паскаль это будет так:
const p=3;t=4;
var a:array[1..p,1..t] of real;
i,j,i_min,i_max:integer;
min,max,r:real;
begin
for i:=1 to p do
for j:=1 to t do read(a[i,j]);
min:=a[1,1];i_min:=1;max:=a[1,1];i_max:=1;
for i:=1 to p do
for j:=1 to t do
begin
if a[i,j]
max:=a[i,j];i_max:=i;
end;
end;
if i_min<>i_max then
for j:=1 to t do
begin
r:=a[i_min,j];a[i_min,j]:=a[i_max,j];a[i_max,j]:=r;
end;
for i:=1 to p do
begin
for j:=1 to t do write(a[i,j],' ');
writeln;
end;
end.
на каком языке? Паскаль, пиши в адрес
⇢