MaxDel

Program MaxDel; uses crt;

const n=6; m=7;

var a:array [1..n,1..m] of real;
    imax:array [1..n] of real;
    max:real;
    i,j,st:byte;

Begin clrscr;
Randomize;
{----- Генерируем и выводим исходную матрицу Start -----}
Write('--------------------------------------------------------------------------------');
Writeln(' Исходная матрица А: ');
for i:=1 to n do
    Begin
    for j:=1 to m do
        Begin
    A[i,j]:=Random(50)-25.;
    Write(A[i,j]:7:2);
    end;
    Writeln;
    end;
{----- Генерируем и выводим исхлдную матрицу End -----}

{----- Ищем максимальный элемент в каждой строке Start -----}
Write('--------------------------------------------------------------------------------');
Writeln(' Максимальные элементы: ');
for i:=1 to n do
    Begin
    iMax[i]:=A[i,1]; {Берем за максимум}
    for j:=2 to n do if (iMax[i] < A[i,j]) then iMax[i]:=A[i,j];
    Write(iMax[i]:7:2);
    end;
Writeln;
{----- Ищем максимальный элемент в каждой строке End -----}

{----- Ищем строку для удаления Start -----}
Max:=iMax[1]; {Берем за максимум}
St:=1; {Номер строки}

for i:=2 to n do if (Max < iMax[i]) then
                                        Begin
                                        Max:=iMax[i];
                                        St:=i;
                                        end;
Write('--------------------------------------------------------------------------------');
Writeln(' Номер строки для удаления: ', St);
{----- Ищем строку для удаления End -----}

{----- Удаляем строку из матрицы Start -----}
for i:=st to (n-1) do
    for j:=1 to m do A[i,j]:=A[(i+1),j];
{----- Удаляем строку из матрицы End -----}

{----- Выводим новую матрицу Start -----}
Write('--------------------------------------------------------------------------------');
Writeln(' Новая матрица А: ');
for i:=1 to (n-1) do
    Begin
    for j:=1 to m do Write(A[i,j]:7:2);
    Writeln;
    end;
{----- Выводим новую матрицу  End -----}
Write('--------------------------------------------------------------------------------');
GotoXY(15,WhereY); Writeln('Для выхода из программы нажмите клавишу "Enter"');
Write('--------------------------------------------------------------------------------');
Readln;
end.

{Александр Фомин (с) 2014}