Дан двумерный массив n*n. В каждом столбце максимальный элемент поменять местами с диагональным элементом

@kyz · Регистрация: 26.02.2014

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

Дан двумерный массив n*n. В каждом столбце максимальный элемент поменять местами с диагональным элементом. заранее спасибо)

@CodeR · 01.03.2014, 10:49

Pascal

Const nmax=20;
Var A:array[1..nmax,1..nmax] of integer;
    i,j,n,imax:byte;
    t:integer;
Begin
    Repeat
     write('Введите n<=',nmax,': ');readln(n);
    Until n in [1..nmax];
    writeln('Исходная матрица');
    For i:=1 to n do
    Begin
      For j:=1 to n do
      Begin
        A[i,j]:=random(31)-15;
        write(A[i,j]:4);
      End;
      writeln;
    End;
    For j:=1 to n do
    Begin
      imax:=1;
      For i:=2 to n do
       if A[i,j]>A[imax,j] then imax:=i;
      t:=A[j,j];
      A[j,j]:=A[imax,j];
      A[imax,j]:=t;
    End;
    writeln('Преобразованная матрица');
    For i:=1 to n do
    Begin
      For j:=1 to n do
       write(A[i,j]:4);
      writeln;
    End;
    readln;
End.

@kyz 0 / 0 / 0 Регистрация: 26.02.2014 Сообщений: 13
		1
	Дан двумерный массив nn. В каждом столбце максимальный элемент поменять местами с диагональным элементом 01.03.2014, 10:18. Показов* 1438. Ответов 1 Метки нет (Все метки) Дан двумерный массив n*n. В каждом столбце максимальный элемент поменять местами с диагональным элементом. заранее спасибо) 0

	01.03.2014, 10:49

Дан двумерный массив n*n. В каждом столбце максимальный элемент поменять местами с диагональным элементом

Решение