Задача на двумерный динамический массив Delphi

[molodoy95]

Здравствуйте!

Дана целочисленная квадратная матрица A (m,m). Сформировать одномерный массив, состоящий из индексов, симметричных строк матрицы



И несколько условий для задачи:

1. Используйте динамический массив.
2. Предусмотрите вывод на монитор исходного массива по строкам и вывод результирующего массива, если он формируется в вашей программе.
3. Если в задаче требуется создать новый массив, то для него используйте динамический массив.

Написал вот такой код, но что-то не пашет...

var a: array of array of integer;
    b: array of Integer;
     m,i,j,k:Integer;

begin

   Readln(m);

  SetLength(a,m,m);
  SetLength(b,m);

  for i:=0 to m-1 do
  for j:=0 to m-1 do
  read(a[i,j]);

 k:=0;
 for i:=0 to m-1 do
    begin
    j:=0;
    while ((a[i,j]=a[j,i]) and (j<m)) do
       begin
       if j=m-1 then begin b[k]:=i+1; k:=k+1; end;
       j:=j+1;
       end;
    end;

 SetLength(b,k);

 if b[0]<>0 then
 for i:=0 to k-1 do write(b[i],' ') else write('Error');
 Writeln;

 readln;

end.

[molodoy95]

И еще одна задача:

Дан двумерный массив размерности m*n. Найти и удалить все строки, элементы в которых упорядочены

[molodoy95]

Сообщение от molodoy95

Здравствуйте!

Дана целочисленная квадратная матрица A (m,m). Сформировать одномерный массив, состоящий из индексов, симметричных строк матрицы



И несколько условий для задачи:

1. Используйте динамический массив.
2. Предусмотрите вывод на монитор исходного массива по строкам и вывод результирующего массива, если он формируется в вашей программе.
3. Если в задаче требуется создать новый массив, то для него используйте динамический массив.

Написал вот такой код, но что-то не пашет...

var a: array of array of integer;
    b: array of Integer;
     m,i,j,k:Integer;

begin

   Readln(m);

  SetLength(a,m,m);
  SetLength(b,m);

  for i:=0 to m-1 do
  for j:=0 to m-1 do
  read(a[i,j]);

 k:=0;
 for i:=0 to m-1 do
    begin
    j:=0;
    while ((a[i,j]=a[j,i]) and (j<m)) do
       begin
       if j=m-1 then begin b[k]:=i+1; k:=k+1; end;
       j:=j+1;
       end;
    end;

 SetLength(b,k);

 if b[0]<>0 then
 for i:=0 to k-1 do write(b[i],' ') else write('Error');
 Writeln;

 readln;

end.

Переделал программу, все работает!

var mx: array of array of integer;
    x: array of integer;
    i,j,k,m,count:integer;

begin
  readln(m);
  Writeln;

  SetLength(mx,m,m);
  SetLength(x,m);

  for i:=0 to m-1 do
  for j:=0 to m-1 do
     read(mx[i][j]);

  Writeln;


  k:=0;

  for i:=0 to m-1 do
    begin
      count:=0;
  for j:=0 to m-1 do
  begin
  if mx[i][j]=mx[j][i] then
     begin
     count:=count+1;
     if count=3 then begin x[k]:=i+1; k:=k+1 end;
     end;
  end;  end;

  for i:=0 to k-1 do write(x[i],' ');

Readln; Readln;

end.

[molodoy95]

Сообщение от molodoy95

И еще одна задача:

Дан двумерный массив размерности m*n. Найти и удалить все строки, элементы в которых упорядочены

Эту тоже написал. Не идеально конечно... но ответ правильный

var
  mx: array of array of Integer;
  i,i2,j,m,n,count,count2,count3,l,k:Integer;

begin
  Read(m,n);
  SetLength(mx,m,n);

  for i:=0 to m-1 do
  for j:=0 to n-1 do
  read(mx[i][j]);
  Writeln;

  count2:=0;
  for i2:=0 to m-1 do
  for i:=0 to m-1 do
  begin
  count:=0;
  for j:=0 to n-2 do
  begin


  if mx[i][j]=mx[i][j+1]-1 then count:=count+1;
  if (count=n-1) and (i<>m-1) then
     begin
       for k:=i to m-2 do
       for l:=0 to n-1 do
       mx[k][l]:=mx[k+1][l];
       count2:=count2+1;
     end;
  end;
  end;

  count3:=0;

  for i2:- to m-1 do
  for i:=0 to m-1 do
  begin
  count:=0;
  for j:=0 to n-2 do
  begin


  if mx[i][j]=mx[i][j+1]+1 then count:=count+1;
  if (count=n-1) and (i<>m-1) then
     begin
       for k:=i to m-2 do
       for l:=0 to n-1 do
       mx[k][l]:=mx[k+1][l];
       count3:=count3+1;
     end;
  end;
  end;

  for i:=0 to m-1-count2-count3 do
  begin
  Writeln;
  for j:=0 to n-1 do
  write(mx[i][j],' ');
  end;

Readln;
Readln;
end.