удаление строк массива

[XaHTeP]

дан двумерный массив размеров 6*7 заполненный случайным образом. Удалить строку содержащую минимальный элемент

Напишите прогу плз

Пытался написать но что-то нето

begin
for i:=1 to 6 do
for j:=1 to 7 do
a[i,j]:=random(10)+1;
writeln('ISHOD') ;
for i:=1 to 6 do begin
for j:=1 to 7 do
write(a[i,j],'   ');
writeln;
end;
a[1,1]:=min;
k:=1;
for i:=1 to 6 do
for j:=1 to 7 do
if a[i,j]<min    then
begin
k:=i;
min:=a[i,j];
end;
for i:=k to 6-1 do
for j:=1 to 7 do
a[i,j]:=a[i+1,j];
for j:=1 to 7 do
a[6,j]:=0;
writeln('RESULTAT_GG_WP');
for i:=1 to 6-1 do begin
for j:=1 to 7 do
write(a[i,j],'   ');
writeln;
end;
end.

[Stilet]

begin
imin:=1;jmin:=1;
for i:=1 to 6 do for j:=1 to 7 do begin 
 a[i,j]:=random(10)+1;
 if a[i,j]<a[imin,jmin] then  begin 
  imin:=i;jmin:=j;
 end; 
end;
writeln('ISHOD') ;

for i:=1 to 6 do begin
 for j:=1 to 7 do write(a[i,j],'   ');
 writeln;
end;

for i:=1 to 6 do begin if i<>imin then
 for j:=1 to 7 do write(a[i,j],'   ');
 writeln;
end;

readln;
end.

годится?

[XaHTeP]

Спасибо большое) (удаляется только 1 строка с мин элементом , интересно а как сделать чтобы удалялись все сразу))

[XaHTeP]

Вот что выдает прога

ISHOD
1 6 9 3 1 9 4
8 2 1 7 1 10 8
4 6 10 2 10 6 10
9 10 6 2 3 4 1
6 9 6 4 6 6 3
4 6 8 7 2 3 10

8 2 1 7 1 10 8
4 6 10 2 10 6 10
9 10 6 2 3 4 1
6 9 6 4 6 6 3
4 6 8 7 2 3 10

[Stilet]

как сделать чтобы удалялись все сразу

Создай массив вспомогательный, и там храни пометку типа Boolean. Каждый элемент массива будет характеризовать строку с таким же индексом. Если пометка есть то эту строку не выводить а экран.

[XaHTeP]

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

Странно прога не пробегает все значения от 1 до 6 ( когда идет проверка на минимальное число)
если хоть в одном случае она находит отриц число то остальные она не проверяет . Пфф что надо исправить?

Program p1;
var a:array [1..10,1..10] of integer;
imin,jmin,i,j,k:Integer;
begin
imin:=1;jmin:=1;
for i:=1 to 6 do for j:=1 to 7 do begin
 a[i,j]:=random(10)+1;
 if a[i,j]<a[imin,jmin] then  begin
  imin:=i;jmin:=j;
 end;
end;
writeln('ISHOD') ;

for i:=1 to 6 do begin
 for j:=1 to 7 do write(a[i,j],'   ');
 writeln;
end;
writeln('KON');
 K:=0;
for i:=1 to 6 do
 begin
 for j:=1 to 7 do
 if a[i,j]=a[imin,jmin] then
 k:=k+1;
 if k=0 then
 for j:=1 to 7 do write(a[i,j],'   ');
 writeln;
end;

readln;
end.

[Stilet]

k:=k+1;
if k=0 then

Это что и зачем?

[XaHTeP]

Ну вот если есть хоть одно минимальное число в строке значит мы ее не выводим




ну почему он не проверяет следующие значения?
ISHOD
10 6 6 2 2 7 10
7 2 9 8 1 10 9
7 5 6 5 8 6 9
1 9 6 10 10 7 1
4 8 6 2 9 7 8
8 9 2 3 7 8 7
KON
10 6 6 2 2 7 10

[Stilet]

Я не это умел ввиду. Я имел ввиду что есть некий массив типа Boolean.
В цикле после ввода массива ты устанавливаешь его элементы:

if not b[i] and (a[i,j]=a[imin,jmin]) then b[i]:=true;

А потом при выводе проверяешь if not b[i] то выводить строку иначе пропустить вывод.