поменять min на max

[бургер]

Помогите пожалуйста! я не понимаю почему у меня 1 строка идет в конец и 1столбец тож вместо последнего встает:confused :
надо чтоб стору с min менял на строку с max и столбец с min на столбец с max.

Код:
uses wincrt;
var
a:array[1..100,1..100] of integer;
i,n,j,min,max:integer;
begin
write('N=');
readln(n);

for i:=1 to n do
begin
for j:=1 to n do
begin
read(a[i,j]);
end;
readln;
end;

min:=a[1,1];
max:=a[1,1];

for i:=1 to n do
for j:=1 to n do
begin
if (max<=a[i,j]) then max:=a[i,j];
if (min>=a[i,j]) then min:=a[i,j];
end;

writeln('min=',min);
writeln('max=',max);

for i:=1 to n do
begin
for j:=1 to n do
begin
write(a[j,i],' ');
end;
writeln;
end;

end.

[Greblin]

for i:=1 to n do
begin
for j:=1 to n do
begin
write(a[j,i],' ');
end;
writeln;
end;

Ну дык, а с чего бы им min и max менять? Здесь Вы просто выводите транспонированную матрицу
При поиске минимума и максимума Вам кроме значений надо запоминать ещё и их индексы, а потом переставлять

[бургер]

Эт как??? я уже ниче не понимаю... все по разному говорят((( можете поправить?

[p4serhiy]

Пример:

BEGIN
min:=sin(2);
clrscr;
for i:=1 to 5 do
for j:=1 to 5 do
              begin
              w:=sin(i+j);
              a[i,j]:=w;
              end;
for i:=1 to 5 do
for j:=1 to 5 do
begin
if a[i,j]>max then  begin max:=a[i,j]; m:=i; end;
end;
writeln ('min element',min:4:2); {находим и виводим мін}

[бургер]

ооооййй(((( поправьте пожалуйста программку, я не могу понять куды вставить((((

[ROMA2PVT]

uses crt;
var a:array[1..20,1..20] of integer;
    m,n,i,j,imx,imn:byte;
    mn,mx,x:byte;
begin
clrscr;
randomize;
write('Введите количество строк: ');
readln(n);
write('Введите количество столбцов: ');
readln(m);
writeln('Исходная матрица: ');
for i:=1 to n do
 begin
   for j:=1 to m do
    begin
     a[i,j]:=random(20);
     write(a[i,j]:4);
    end;
   writeln;
 end;
imn:=1;
imx:=1;
mn:=a[1,1];
mx:=a[1,1];
for i:=1 to n do
for j:=1 to m do
 begin
  if a[i,j]<mn then
   begin
    mn:=a[i,j];
    imn:=i;
   end;
  if a[i,j]>mx then
   begin
    mx:=a[i,j];
    imx:=i;
   end;
 end;
if imx=imn then write('Минимальный и максимальный элементы в одной строке или в одном столбце!')
else
 begin
  for i:=1 to n do
   begin
    x:=a[i,imn];
    a[i,imn]:=a[i,imx];
    a[i,imx]:=x;
   end;
   for i:=1 to n do
   begin
    x:=a[imn,i];
    a[imn,i]:=a[imx,i];
    a[imx,i]:=x;
   end;
  writeln;
  writeln('Результирующая матрица: ');
  for i:=1 to n do
   begin
    for j:=1 to m do
    write(a[i,j]:4);
    writeln;
   end;
 end;
readln
end.

Проверяй.

[бургер]

ROMA2PVT, вроде правильно работает, но можно чтоб я сам вводил элементы матрицы??? и почему напримаер не min a imn? эт разве паскаль?

[ROMA2PVT]

эт разве паскаль?

Нет эт C++.Конечно паскаль.
Потому что imn и imx это индексы(порядковые номера) минимума и максимума.Как тебе уже писали выше.

Ну дык, а с чего бы им min и max менять? Здесь Вы просто выводите транспонированную матрицу
При поиске минимума и максимума Вам кроме значений надо запоминать ещё и их индексы, а потом переставлять

А ручной ввод конечно можно сделать.Но ток рандомайзом проще.

[бургер]

а как сделать, чтоб в одной матрице менял строки и в сл столбцы???

[ROMA2PVT]

if imx=imn then write('Минимальный и максимальный элементы в одной строке или в одном столбце!')

Смена происходит после этой строки.Вот смотри где что там.Если я конечно там ненакосячил.