Поменять местами столбцы с максимальным и минимальным элементами матрицы

@Вова59 · Регистрация: 22.01.2014

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

Дана прямоугольная матрица A(mхn). Поменять местами столбцы с максимальным и минимальным элементами матрицы.

@_yulya_ · 01.11.2016, 00:39

Pascal

var
  a: array [1..20,1..20] of integer;
  m,n,i,j,min,max,p,k,l: integer;
begin
  write('m = '); readln(m);
  write('n = '); readln(n);
  writeln('Исходная матрица:');
  for i:=1 to m do
    begin
      for j:=1 to n do
        begin
          a[i,j]:=random(54)-20;
          write(a[i,j]:5);
        end;
      writeln;
    end;
  min:=a[1,1]; max:=a[1,1];
  for i:=1 to m do for j:=1 to n do
    begin
      if (a[i,j]<min) then begin min:=a[i,j]; k:=j; end;
      if (a[i,j]>max) then begin max:=a[i,j]; l:=j; end;
    end;
  for i:=1 to m do
    begin
      p:=a[i,k];
      a[i,k]:=a[i,l];
      a[i,l]:=p;
    end;
  writeln('Преобразованная матрица:');  
  for i:=1 to m do begin for j:=1 to n do write(a[i,j]:5); writeln; end;     
end.

@Вова59 1 / 1 / 0 Регистрация: 22.01.2014 Сообщений: 99
		1
	Поменять местами столбцы с максимальным и минимальным элементами матрицы 31.10.2016, 20:46. Показов 1670. Ответов 1 Метки нет (Все метки) Дана прямоугольная матрица A(mхn). Поменять местами столбцы с максимальным и минимальным элементами матрицы. 0

	01.11.2016, 00:39

Поменять местами столбцы с максимальным и минимальным элементами матрицы

Решение