На главную диагональ матрицы поместить наибольшие элементы

@mivel · Регистрация: 19.12.2009

На главную диагональ матрицы А(К,К), К <= 100 поместить наибольшие элементы этой матрицы (сначала наибольший, затем следующий по величине и т.д.), а диагональные элементы - на место наибольших.

@Snoopy · 19.12.2009, 20:59

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

наибольшие элементы этой матрицы

наибольшие в строках??столбцах??

@mivel · 19.12.2009, 22:29 **[ТС]**

По-моему наибольшие элементы во всей матрице. Как найти наибольший элемент и поменять его с первым диагональным я знаю, а вот что дальше делать не знаю.

@mivel · 23.12.2009, 21:25 **[ТС]**

Вот что у меня получилось:

Pascal

program kkr3;
uses crt;
var
  A: array [1..100,1..100] of integer;
  i,j,k,n,imax,jmax,c,max: integer;
begin
  clrscr;
  write('Введите число строк и столбцов матрицы: ');
  readln(n);
  for i:=1 to n do
    for j:=1 to n do
      begin
        write('Введите элемент (',i,' ',j,'): ');
        readln(A[i,j]);
      end;
  k:=1;
  while k <= n do
    begin
      max:=A[k,k];
      for i:=1 to n do
        for j:=1 to n do
          begin
            if ((A[i,j] > max) and (i<>j)) then
              begin
                max:=A[i,j];
                imax:=i;
                jmax:=j;
              end;
          end;
      c:=A[k,k];
      A[k,k]:=max;
      A[imax,jmax]:=c;
      k:=k+1;
    end;
  for i:=1 to n do
    begin
      for j:=1 to n do
        write(A[i,j],' ');
      writeln;
    end;
  readkey
end.

Правильно работает только когда на главной диагонали нет ни одного максимального элемента. Как это исправить?

@mivel 2 / 2 / 2 Регистрация: 19.12.2009 Сообщений: 13
		1
	На главную диагональ матрицы поместить наибольшие элементы 19.12.2009, 19:59. Просмотров 914. Ответов 3 Метки нет (Все метки) На главную диагональ матрицы А(К,К), К <= 100 поместить наибольшие элементы этой матрицы (сначала наибольший, затем следующий по величине и т.д.), а диагональные элементы - на место наибольших. 0

@Snoopy 1915 / 1065 / 383 Регистрация: 06.12.2008 Сообщений: 2,802
	19.12.2009, 20:59	2
	Сообщение от mivel наибольшие элементы этой матрицы наибольшие в строках??столбцах?? 0

@mivel 2 / 2 / 2 Регистрация: 19.12.2009 Сообщений: 13
	19.12.2009, 22:29 [ТС]	3
	По-моему наибольшие элементы во всей матрице. Как найти наибольший элемент и поменять его с первым диагональным я знаю, а вот что дальше делать не знаю. 0

Опции темы