Матрица. Как поменять местами строку с максимальным элементом матрицы на 3 строку

@Валераpascal · Регистрация: 28.05.2012

Как поменять местами строку с максимальным элементом матрицы на 3 строку?

@КонецСвета · 05.06.2012, 15:01

Pascal

uses crt;
var b: array [1..100,1..100] of integer;
    n,m,i,j,imax,jmax,buf: integer;
begin
writeln('n,m=');
readln(n,m);
imax:=1; jmax:=1;
writeln('Исходная матрица ');
for i:=1 to n do
    begin
    for j:=1 to m do
        begin
        b[i,j]:=random(199)-99;
        write(b[i,j]:4);
        if b[imax,jmax]<b[i,j] then
           begin
           imax:=i; jmax:=j;
           end;
        end;
    writeln;
    end;
writeln('Наиб. элемент=',b[imax,jmax],', строка ',imax,', столбец ',jmax);
for j:=1 to m do
    begin
    buf:=b[3,j];
    b[3,j]:=b[imax,j];
    b[imax,j]:=buf;
    end;
writeln('Итоговая матрица');
   for i:=1 to n do
       begin
       for j:=1 to m do
           write(b[i,j]:4);
       writeln;
       end;
end.

@Валераpascal 0 / 0 / 0 Регистрация: 28.05.2012 Сообщений: 25
		1
	Матрица. Как поменять местами строку с максимальным элементом матрицы на 3 строку 05.06.2012, 11:59. Просмотров 1137. Ответов 1 Метки нет (Все метки) Как поменять местами строку с максимальным элементом матрицы на 3 строку? 0

Опции темы

Матрица. Как поменять местами строку с максимальным элементом матрицы на 3 строку

Решение