Дана матрица размера MxN. Удалить столбец, содержащий максимальный элемент матрицы.
Код:
program Project2;
{$APPTYPE CONSOLE}
uses
SysUtils;
Type Matrix=array of array of integer;
function max(a:Matrix;n,m:integer):integer;
var i,j,ind,m1:integer;
begin
m1:=a[0,0];
ind:=0;
for i:=0 to n-1 do
for j:=0 to m-1 do
if a[i,j]>m1 then begin m1:=a[i,j];ind:=i;end;
max:=ind;
end;
var a:Matrix;
i,j,M,N,mel:integer;
begin
writeln('Vvedite razmer A(NxM)');
write('N: ');readln(n);
write('M: ');readln(m);
SetLength(a,n,m);
for i:= 0 to n-1 do
begin
for j:=0 to m-1 do begin
a[i,j]:=random(9);
write(a[i,j],' '); end;
writeln;
end;
writeln;
mel:=max(a,n,m);
for i:= 0 to n-1 do
for j:=mel to m-2 do
a[i,j]:=a[i,j+1];
SetLength(a,n,m-1);
for I := Low(A) to High(A) do
begin
for j := Low(A[i]) to High(A[i]) do
write(a[i,j],' ');
writeln;
end;
readln;
end.
Аналогично со строками.
В файл записывать результат, дело не хитрое...