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

@ирина1994 · Регистрация: 25.05.2012

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

@КонецСвета · 20.06.2012, 22:50

Pascal

uses crt;
const nmax=15;
var a: array [1..nmax,1..nmax] of integer;
    n,i,j,jmax: byte;
    buf: integer;
begin
repeat
write('Размерность, не более ',nmax,', n='); readln(n);
until n in [1..nmax];
writeln('Исходная матрица');
for i:=1 to n do
    begin
    jmax:=1;
    for j:=1 to n do
        begin
        a[i,j]:=random(19)-9;
        write(a[i,j]:4);
        if a[i,j]>=a[i,jmax] then jmax:=j;
        end;
    buf:=a[i,jmax];
    a[i,jmax]:=a[i,i];
    a[i,i]:=buf;
    writeln;
    end;
writeln('Преобразованная матрица ');
for i:=1 to n do
    begin
    for j:=1 to n do
        write(a[i,j]:4);
    writeln;
    end;
readln;
end.

@ирина1994 2 / 2 / 1 Регистрация: 25.05.2012 Сообщений: 12
		1
	Найти в каждой строке наибольший элемент и поменять его местами с элементом главной диагонали 20.06.2012, 22:20. Показов 5424. Ответов 1 Метки нет (Все метки) дана целочисленная квадратная матрица А. найти в каждой строке наибольший элемент и поменять его местами с элементом главной диагонали.вывести начальную и конечную матрицы __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

Опции темы

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

Решение