2-x мерный масссив удаление строк

[mouse697]

Матрицу 9х8 преобразовать в матрицу 8х7 , вычеркнув строку и столбец, на пересечении которых расположен наименьший элемент матрицы A.
Нашел минимум и программа вычеркивает только столбец. Где что неправильно указал ?

для заполнения исходной таблицы используется генератор

program lab3pr4;
uses crt;
 var a,b:array[1..9,1..8] of integer;
  i,j,min,k,l:integer;
begin
 clrscr;
 for i:=1 to 9 do
 for j:=1 to 8 do
  a[i,j]:=trunc(random*(-50))+40;
  min:=a[1,1]; k:=1; l:=1;
 for i:=1 to 9 do
 for j:=1 to 8 do
   if a[i,j]<min then
   begin
    min:=a[i,j];
    k:=i; l:=j;
   end;
 writeln('min= ',min);
 writeln('stroka ',k,' stolbec ',l);

{ думаю что ошибка где то здесь }
 for k:=1 to 9 do
 for l:=1 to 8 do
  begin
   if i=k then b[i,j]:=0 else b[i,j]:=a[i,j];
   if j=l then b[i,j]:=0 else b[i,j]:=a[i,j];
  end;

{ далее только выводим конечный результат}

 writeln('--- isxodnij massiv---');
 for i:=1 to 9 do
   begin
    for j:=1 to 8 do
      write(a[i,j]:5);
     writeln;
    end;
 writeln;
 writeln('--- konechnij massiv--- ');
 for i:=1 to 9 do
   begin
    for j:=1 to 8 do
     if b[i,j]<>0 then write(b[i,j]:5);
     writeln;
    end;
 readkey;
end.

[Sazary]

 for k:=1 to 9 do
 for l:=1 to 8 do

Здесь должны быть не k и l, а i и j.

 for i:=1 to 9 do
 for j:=1 to 8 do

Только у вас есть еще кое-какая ошибка.
Вы зануляете нужные столбец и строку и не выводите нулевые элементы.
Но в исходной матрице также есть нули.

[mouse697]

заменять на i и j тоже пробовал ничего особо не меняется

после запуска в исходной матрице у меня ни одного нуля не показывает

[Sazary]

Полный код:

program lab3pr4;
uses crt;
 var a,b:array[1..9,1..8] of integer;
  i,j,min,k,l:integer;
begin
 clrscr;
 for i:=1 to 9 do
 for j:=1 to 8 do
  a[i,j]:=trunc(random*(-50))+40;
  min:=a[1,1]; k:=1; l:=1;
 for i:=1 to 9 do
 for j:=1 to 8 do
   if a[i,j]<min then
   begin
    min:=a[i,j];
    k:=i; l:=j;
   end;
 writeln('min= ',min);
 writeln('stroka ',k,' stolbec ',l);

{ думаю что ошибка где то здесь }
 for i:=1 to 9 do
 for j:=1 to 8 do
  begin
   if i=k then b[i,j]:=0 else b[i,j]:=a[i,j];
   if j=l then b[i,j]:=0 else b[i,j]:=a[i,j];
  end;

{ далее только выводим конечный результат}

 writeln('--- isxodnij massiv---');
 for i:=1 to 9 do
   begin
    for j:=1 to 8 do
      write(a[i,j]:5);
     writeln;
    end;
 writeln;
 writeln('--- konechnij massiv--- ');
 for i:=1 to 9 do
   begin
    for j:=1 to 8 do
     if b[i,j]<>0 then write(b[i,j]:5);
     writeln;
    end;
 readkey;
end.

Выводит:

min= -8
stroka 3 stolbec 1
--- isxodnij massiv---
   13   11    5   -2   10   -2   13   -2
   19    9    8   21   19   26   -4   38
   -8   27   21   17    1    0   14   17
   12   21   -6   -1   37   24   36    8
   39   22   -1   -7    2   33   -3   -3
   -8   17    1    0   17   14    1    7
   35    4    9   11   33   14   -7    3
   14   35   20   17   27   31    2    4
   18   30   12   34   40   24   10   33

--- konechnij massiv---
   11    5   -2   10   -2   13   -2
    9    8   21   19   26   -4   38
   27   21   17    1   14   17
   21   -6   -1   37   24   36    8
   22   -1   -7    2   33   -3   -3
   17    1   17   14    1    7
    4    9   11   33   14   -7    3
   35   20   17   27   31    2    4
   30   12   34   40   24   10   33

[mouse697]

спасибо конечно но у меня генерируются числа другие и в итоге считает не правильно, только что попробовал ваш код

а если заменить блок на

for i:=1 to 9 do
 for j:=1 to 8 do
  begin
   if i=k then b[i,j]:=a[i,j];
   if j=l then b[i,j]:=a[i,j] ;
  end;

то выводит только строку и столбец где расположен min элемент а можно выводить обратное ?

[Sazary]

у меня генерируются числа другие

Естественно другие. Притом каждый раз одни и те же. Поэтому вы и не видите нули в исходной матрице. У вас не проининциализирован генератор. Добавьте в начале программы:

randomize;

[mouse697]

хорошо, теперь генерирует разные но строчку всё равно не удаляет

а можно ли просто не выводить ту строчку и столбец, если можно то как подскажите пожалуйста

и только что проверил что строка вообще не заменяется на 0, это выясняется когда убрать условие невывода нулевых значений в конце программы

[Sazary]

но строчку всё равно не удаляет

Вот, нужно исправить:

 if i=k then b[i,j]:=0 else b[i,j]:=a[i,j];
if j=l then b[i,j]:=0 else b[i,j]:=a[i,j];

на

if i=k then b[i,j]:=0
   else if j=l then b[i,j]:=0
   else b[i,j]:=a[i,j];

==============

а можно ли просто не выводить ту строчку и столбец, если можно то как подскажите пожалуйста

Можно:

writeln('--- konechnij massiv--- ');
 for i:=1 to 9 do
   begin
    for j:=1 to 8 do
     if (i<>k) and (j<>l) then
      begin
      write(b[i,j]:5);
      end;
     if i<>k then writeln;
    end;

Полный код:

program lab3pr4;
uses crt;
 var a,b:array[1..9,1..8] of integer;
  i,j,min,k,l:integer;
begin
 clrscr;
 randomize;
 for i:=1 to 9 do
 for j:=1 to 8 do
  a[i,j]:=trunc(random*(-50))+40;
  min:=a[1,1]; k:=1; l:=1;
 for i:=1 to 9 do
 for j:=1 to 8 do

   if a[i,j]<min then
   begin
    min:=a[i,j];
    k:=i; l:=j;
   end;
 writeln('min= ',min);
 writeln('stroka ',k,' stolbec ',l);

 for i:=1 to 9 do
  for j:=1 to 8 do
  begin
   if i=k then b[i,j]:=0
   else if j=l then b[i,j]:=0
   else b[i,j]:=a[i,j];
  end;

{ далее только выводим конечный результат}

 writeln('--- isxodnij massiv---');
 for i:=1 to 9 do
   begin

    for j:=1 to 8 do
      begin
      write(a[i,j]:5);
      end;
     writeln;
    end;
 writeln;

 writeln('--- konechnij massiv--- ');
 for i:=1 to 9 do
   begin
    for j:=1 to 8 do
     if (i<>k) and (j<>l) then
      begin
      write(b[i,j]:5);
      end;
     if i<>k then writeln;
    end;
 readkey;
end.

[mouse697]

все большое спасибо, осталось только получше с этим разобраться