Найти минимальный элемент в каждом столбце матрицы и поменять его местами с первым элементом этого столбца

@Lady_vamp · Регистрация: 10.04.2010

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

Матрица А. Найти минимальный элемент в каждом столбце и поменять его местами с первым элементом этого столбца.

@Puporev · 14.09.2010, 15:08

Pascal

for j:=1 to m do//идем по столбцам
 begin
  imin:=1;//мин-первый
  for i:=1 to n do//вниз по столбцу
  if a[i,j]<a[imin,j] then imin:=i;//номер минимального
  x:=a[1,j];
  a[1,j]:=a[imin,j];//обмен
  a[imin,j]:=x;
 end;

@Law[L]esS · 14.09.2010, 15:10

Pascal

const
  n = 10;
var
  a:array[1..n,1..n] of integer;
  i,j,min,tmp:integer;
begin
  for i:= 1 to n do begin
    writeln;
    for j:= 1 to n do begin
      a[i,j]:= random(20)-10;
      write(a[i,j]:3);
    end;
  end;
  for j:= 1 to n do begin
    min:= 1;
    for i:= 1 to n do
    if a[i,j] < a[min,j] then min:= i;
    tmp:=a[min,j];
    a[min,j]:= a[1,j];
    a[1,j]:= tmp;
  end;
  writeln;
  writeln;
  for i:= 1 to n do begin
    writeln;
    for j:= 1 to n do
    write(a[i,j]:3);
  end;
end.

@Lady_vamp · 14.09.2010, 21:40 **[ТС]**

Огромное спасибо)))

Найти минимальный элемент в каждом столбце матрицы и поменять его местами с первым элементом этого столбца

Решение

Решение

@Lady_vamp 0 / 0 / 0 Регистрация: 10.04.2010 Сообщений: 36
		1
	Найти минимальный элемент в каждом столбце матрицы и поменять его местами с первым элементом этого столбца 14.09.2010, 14:54. Показов 1798. Ответов 3 Метки нет (Все метки) Матрица А. Найти минимальный элемент в каждом столбце и поменять его местами с первым элементом этого столбца. 0

@Lady_vamp 0 / 0 / 0 Регистрация: 10.04.2010 Сообщений: 36
	14.09.2010, 21:40 [ТС]	4
	Огромное спасибо))) 0

Опции темы