artxdf

Дана квадратная матрица вещественных чисел. Найти наибольший по модулю элемент. Получить квадратную матрицу из исходной путем выбрасывания строки и столбца, на пересечении которых расположен элемент с найденным значением.

Евгений

uses crt;
var A:array[1..100,1..100] of Real;
max: Real;
n,i,j,x,y:integer;
begin
Write('razmer matrix = ');
Readln(n);
Writeln;
for i:=1 to n do
begin
for j:=1 to n do
begin
A[i,j]:=(Random(100)-60)/10;
Write(A[i,j]:7:1);
end;
Writeln;
end;
Writeln;
Writeln;
max:=Abs(A[1,1]);
x:=1; y:=1;
for i:=1 to n do
for j:=1 to n do
if Abs(A[i,j])>max then
begin
max:=Abs(A[i,j]);
x:=i;
y:=j;
end;
Writeln('Max= ',Abs(A[x,y]):0:1);
Writeln;
if x<n then
for i:=x to n-1 do
for j:=1 to n do
A[i,j]:=A[i+1,j];
if y<n then
for i:=1 to n-1 do
for j:=y to n-1 do
A[i,j]:=A[i,j+1];
for i:=1 to n-1 do
begin
for j:=1 to n-1 do
Write(A[i,j]:7:1);
Writeln;
end;
Readkey;
end.

artxdf

Спасибо большое!)