Question

Помогите написать программу на Паскале Дан двумерный массив Удалить все строки и столбцы,в которых ровно одна единица.

Answer 1

Первое что пришло в голову

Answer 2

Конечно, вот программа на Pascal, которая выполняет задачу:

pascalCopy code
program RemoveRowsAndColumns;

const
  MAX_SIZE = 100;

type
  Matrix = array[1..MAX_SIZE, 1..MAX_SIZE] of integer;

var
  A: Matrix;
  n, m, i, j, k, l: integer;

procedure ReadMatrix(var A: Matrix; var n, m: integer);
var
  i, j: integer;
begin
  writeln('Введите количество строк и столбцов (n m): ');
  readln(n, m);
  writeln('Введите элементы матрицы:');
  for i := 1 to n do
    for j := 1 to m do
      read(A[i, j]);
end;

procedure PrintMatrix(A: Matrix; n, m: integer);
var
  i, j: integer;
begin
  writeln('Матрица:');
  for i := 1 to n do
  begin
    for j := 1 to m do
      write(A[i, j], ' ');
    writeln;
  end;
end;

procedure RemoveOnes(var A: Matrix; var n, m: integer);
var
  row_has_one, col_has_one: array[1..MAX_SIZE] of boolean;
  i, j: integer;
begin
  fillchar(row_has_one, sizeof(row_has_one), false);
  fillchar(col_has_one, sizeof(col_has_one), false);

  for i := 1 to n do
    for j := 1 to m do
      if A[i, j] = 1 then
      begin
        row_has_one[i] := true;
        col_has_one[j] := true;
      end;

  k := 0;
  for i := 1 to n do
    if not row_has_one[i] then
    begin
      inc(k);
      l := 0;
      for j := 1 to m do
        if not col_has_one[j] then
        begin
          inc(l);
          A[k, l] := A[i, j];
        end;
    end;

  n := k;
  m := l;
end;

begin
  ReadMatrix(A, n, m);
  PrintMatrix(A, n, m);
  RemoveOnes(A, n, m);
  PrintMatrix(A, n, m);
end.

Эта программа сначала считывает двумерный массив A, затем выводит его, удаляет строки и столбцы с ровно одной единицей и выводит измененный массив.