Решаем задачи Абрамян на Паскале. Matrix64

Matrix64. Дана матрица размера $$M \times N$$. Удалить столбец, содержащий максимальный элемент матрицы.

Решение:

program Matrix64;

type
  matrix = array [1..10,1..10] of integer;

var
  a:matrix;
  MaxI,MaxJ, M, N, i, j:Integer;

procedure DelMatrixColumn(var mat:matrix; X:Integer);
var
 i:integer;
begin
 N:=N-1;
 for j:=X to N do
  for i:=1 to M do
   mat[i,j]:=mat[i,j+1];
end;

begin
 Write('N: ');
 Readln(N);
 Write('M: ');
 Readln(M);

 for  i:=1 to M do
  begin
   writeln(i,': ');
   for j:=1 to N do
    begin
     Write(j,' : ');
     Read(a[i,j]);
    end;
  end;
  MaxI:=1;
  MaxJ:=1;
  for  j:=1 to N do
   for i:=1 to M do
     if a[i,j]>a[MaxI,MaxJ] then
      begin
       MaxI:=i;
       MaxJ:=j;
      end;

 DelMatrixColumn(a,MaxJ);

 for  i:=1 to M do
  begin
   for j:=1 to N do
    begin
     Write(' : ',a[i,j]);
    end;
   writeln(' : ');
  end;
end.

program Matrix64;

type

matrix = array [1..10,1..10] of integer;

var

a:matrix;

MaxI,MaxJ, M, N, i, j:Integer;

procedure DelMatrixColumn(var mat:matrix; X:Integer);

var

i:integer;

begin

N:=N-1;

for j:=X to N do

for i:=1 to M do

mat[i,j]:=mat[i,j+1];

end;

begin

Write('N: ');

Readln(N);

Write('M: ');

Readln(M);

for i:=1 to M do

begin

writeln(i,': ');

for j:=1 to N do

begin

Write(j,' : ');

Read(a[i,j]);

end;

MaxI:=1;

MaxJ:=1;

for j:=1 to N do

for i:=1 to M do

if a[i,j]>a[MaxI,MaxJ] then

begin

MaxI:=i;

MaxJ:=j;

end;

DelMatrixColumn(a,MaxJ);

for i:=1 to M do

begin

for j:=1 to N do

begin

Write(' : ',a[i,j]);

end;

writeln(' : ');

end;

end.

Другие задачи из раздела Matrix можно посмотреть здесь.

Решаем задачи Абрамян на Паскале. Matrix64

Комментарии:

Добавить комментарий Отменить ответ