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

@Elena0602 · Регистрация: 04.03.2010

Author24 — интернет-сервис помощи студентам

Помогите, нужна программа.
Составить двухмерный массив из случайных чисел.
Представьте что массив разделен двумя диагоналями на 4 части: верхняя, нижняя, левая, правая.
Рассматриваем левую и правую часть и находим в них минимальный элемент.
В верхней и нижней части находим максимальный элемент.
И меняем местами минимальный и максимальный элемент.
Помогите пожалуйста.....

@Puporev · 01.04.2010, 16:15

Сообщение от Elena0602

И меняем местами минимальный и максимальный элемент.

Который с которым? Их же 2 пары.

@yanyk1n · 01.04.2010, 16:22

Pascal

uses crt;
const n=5;
var a:array[1..n,1..n]of integer;
i,j,mini,minj,maxi,maxj,b:integer;
 
begin
 clrscr;
 randomize;
 writeln('Исходный массив');
 for i:=1 to n do
 begin 
  for j:=1 to n do
  begin
    a[i,j]:=-50+random(100);
    write(a[i,j]:4);
  end;
  writeln;
 end;
 
 mini:=2;
 minj:=1;
 maxi:=1;
 maxj:=2;
 
 for i:=1 to n div 2 do for j:=1+i to n-i do if a[i,j]>a[maxi,maxj] then
 begin
  maxi:=i;
  maxj:=j;
 end; 
 for i:=1 to (n div 2) + 1 do for j:=n-i downto 1+i do if a[i,j]>a[maxi,maxj] then
 begin
  maxi:=i;
  maxj:=j;
 end;
 for j:=1 to n div 2 do for i:=1+j to n-j do if a[i,j]<a[mini,minj] then
 begin
  mini:=i;
  minj:=j;
 end; 
 for j:=1 to (n div 2) + 1 do for i:=n-j downto 1+j do if a[i,j]<a[mini,minj] then
 begin
  mini:=i;
  minj:=j;
 end;
 
 b:=a[mini,minj];
 a[mini,minj]:=a[maxi,maxj];
 a[maxi,maxj]:=b;
 
 writeln('Преобразовнная матрица');
 for i:=1 to n do
 begin
  for j:=1 to n do write(a[i,j]:4);
  writeln;
 end;
end.

@Puporev · 01.04.2010, 16:29

k1ry4, Я так понял нужно найти 2 минимума и 2 максимума и как-то их обменять. Но как?

Добавлено через 1 минуту
А, я наверное неправильно понял. Нужно только по 1 минимуму и максимуму.

@Elena0602 · 06.04.2010, 16:49 **[ТС]**

Puporev,
Помоги пожалуйста.
Составить двухмерный массив из случайных чисел.
Представьте что массив разделен двумя диагоналями на 4 части: верхняя, нижняя, левая, правая.
Рассматриваем левую и правую часть и находим в них минимальный элемент.
В верхней и нижней части находим максимальный элемент.
И меняем местами минимальный и максимальный элемент.
Вот программа, но она работает как-то неправильно(((. Нужен 1 минимум и 1 максимум

Pascal

uses crt;
const n=5;
var a:array[1..n,1..n]of integer;
i,j,mini,minj,maxi,maxj,b:integer;
 
begin
 clrscr;
 randomize;
 writeln('Исходный массив');
 for i:=1 to n do
 begin 
  for j:=1 to n do
  begin
    a[i,j]:=-50+random(100);
    write(a[i,j]:4);
  end;
  writeln;
 end;
 
 mini:=2;
 minj:=1;
 maxi:=1;
 maxj:=2;
 
 for i:=1 to n div 2 do for j:=1+i to n-i do if a[i,j]>a[maxi,maxj] then
 begin
  maxi:=i;
  maxj:=j;
 end; 
 for i:=1 to (n div 2) + 1 do for j:=n-i downto 1+i do if a[i,j]>a[maxi,maxj] then
 begin
  maxi:=i;
  maxj:=j;
 end;
 for j:=1 to n div 2 do for i:=1+j to n-j do if a[i,j]<a[mini,minj] then
 begin
  mini:=i;
  minj:=j;
 end; 
 for j:=1 to (n div 2) + 1 do for i:=n-j downto 1+j do if a[i,j]<a[mini,minj] then
 begin
  mini:=i;
  minj:=j;
 end;
 
 b:=a[mini,minj];
 a[mini,minj]:=a[maxi,maxj];
 a[maxi,maxj]:=b;
 
 writeln('Преобразовнная матрица');
 for i:=1 to n do
 begin
  for j:=1 to n do write(a[i,j]:4);
  writeln;
 end;
end.

@Puporev · 06.04.2010, 19:01

Pascal

uses crt;
const nmax=20;
var a:array[1..nmax,1..nmax] of integer;
    mn,mx,x:integer;
    n,i,j,imx,jmx,imn,jmn:byte;
begin
clrscr;
randomize;
write('n=');readln(n);
for i:=1 to n do
for j:=1 to n do
a[i,j]:=random(20);
mx:=a[1,2];
imx:=1;
jmx:=2;
for i:=1 to n do
for j:=1 to n do
if (((j>i)and(j<n-i+1)){верх}
or((j>n-i+1)and(j<i)))and(a[i,j]>mx) then{низ}
 begin
  mx:=a[i,j];
  imx:=i;
  jmx:=j;
 end;
mn:=a[2,1];
imn:=2;
jmn:=1;
for i:=1 to n do
for j:=1 to n do
if (((j<i)and(j<n-i+1)){слева}
or((j>n-i+1)and(j>i)))and(a[i,j]<mn) then{справа}
 begin
  mn:=a[i,j];
  imn:=i;
  jmn:=j;
 end;
writeln('Исходная матрица:');
for i:=1 to n do
 begin
  for j:=1 to n do
  if (i=imx)and(j=jmx)then
     begin
      textcolor(12);
      write(a[i,j]:4);
     end
  else if (i=imn)and(j=jmn)then
     begin
      textcolor(13);
      write(a[i,j]:4);
     end
  else if (i=j)or(j=n-i+1)then
     begin
      textcolor(10);
      write(a[i,j]:4);
     end
  else
     begin
      textcolor(15);
      write(a[i,j]:4);
     end;
  writeln;
 end;
textcolor(15);
writeln('Максимальный вверху и внизу a[',imx,',',jmx,']=',mx);
writeln('Минимальный слева и справа a[',imn,',',jmn,']=',mn);
x:=a[imn,jmn];
a[imn,jmn]:=a[imx,jmx];{обмен элементов}
a[imx,jmx]:=x;
writeln('Перестановка:');
for i:=1 to n do
 begin
  for j:=1 to n do
  if (i=imx)and(j=jmx)then
     begin
      textcolor(13);
      write(a[i,j]:4);
     end
  else if (i=imn)and(j=jmn)then
     begin
      textcolor(12);
      write(a[i,j]:4);
     end
  else if (i=j)or(j=n-i+1)then
     begin
      textcolor(10);
      write(a[i,j]:4);
     end
  else
     begin
      textcolor(15);
      write(a[i,j]:4);
     end;
  writeln;
 end;
textcolor(15);
readln
end.

@Elena0602 2 / 2 / 0 Регистрация: 04.03.2010 Сообщений: 57
		1
	max и min поменять местами 30.03.2010, 15:16. Показов 1367. Ответов 5 Метки нет (Все метки) Помогите, нужна программа. Составить двухмерный массив из случайных чисел. Представьте что массив разделен двумя диагоналями на 4 части: верхняя, нижняя, левая, правая. Рассматриваем левую и правую часть и находим в них минимальный элемент. В верхней и нижней части находим максимальный элемент. И меняем местами минимальный и максимальный элемент. Помогите пожалуйста..... 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	01.04.2010, 16:15	2
	Сообщение от Elena0602 И меняем местами минимальный и максимальный элемент. Который с которым? Их же 2 пары. 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	01.04.2010, 16:29	4
	k1ry4, Я так понял нужно найти 2 минимума и 2 максимума и как-то их обменять. Но как? Добавлено через 1 минуту А, я наверное неправильно понял. Нужно только по 1 минимуму и максимуму. 1

	06.04.2010, 19:01