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

[бургер]

щас в одной матрице меняет и строки и столбцы, а как сделать чтоб в одной меняло только строки а в другой только столбцы??? того должно получиться 3 матрицы - Исходная, результирующая №1 и результирующая №2

[ROMA2PVT]

Реализовал но уж больно она большая получилась.96 строк.Выкладывать?

[бургер]

давай, посмотрим))) я ж только учусь))) а лучшее учение на примере)))

[ROMA2PVT]

uses crt;
var a:array[1..20,1..20] of integer;
    m,n,i,j,imx,imn:integer;
    mn,mx,x:integer;
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;
writeln('Минимальный элемент=',mn,' в строке-',imn,' макимальный=',mx,' в строке-',imx);
if imx=imn then write('Минимальный и максимальный элементы в одной строке!')
else
 begin
  for i:=1 to n do
   begin
    x:=a[imn,i];
    a[imn,i]:=a[imx,i];
    a[imx,i]:=x;
   end;
  writeln;
  writeln('Обмен строк ',imn,' и ',imx);
  for i:=1 to n do
   begin
    for j:=1 to m do
    write(a[i,j]:4);
    writeln;
   end;
 end;
imn:=1;
imx:=1;
mn:=a[1,1];
mx:=a[1,1];
for j:=1 to m do
for i:=1 to n do
 begin
  if a[j,i]<mn then
   begin
    mn:=a[j,i];
    imn:=i;
   end;
  if a[j,i]>mx then
   begin
    mx:=a[j,i];
    imx:=i;
   end;
 end;
writeln('Минимальный элемент=',mn,' в столбце-',imn,' максимальный=',mx,' в столбце-',imx);
if imx=imn then write('Минимальный и максимальный элементы в одном столбце!')
else
 begin
  for i:=1 to m do
   begin
    x:=a[i,imn];
    a[i,imn]:=a[i,imx];
    a[i,imx]:=x;
   end;
writeln;
for i:=1 to n do
   begin
    for j:=1 to m do
    write(a[i,j]:4);
    writeln;
   end;
end;
end.

Ошибся 95 строк.ГЫ.

[бургер]

Биг пасиба!!!))) ща буду разбираться))) работает))) ICQ - 557708885 пиши если что)))

[ROMA2PVT]

ICQ - 557708885 пиши если что)))

А если что эт в смысле что?

[бургер]

ХЗ))) мало ли, консультация по ремонту авто нужна будет)))

[ROMA2PVT]

ХЗ))) мало ли, консультация по ремонту авто нужна будет)))

Окей.Спец по тачкам эт хорошо.Добавлю в аську.