Помогите исправить задачу! Матрицы.

[Svetlanka]

Помогите исправить задачу! Матрицы.

помогите изменить. Нужно УДАЛИТЬ матрицы, а не обнулить (как у меня).=)

Задан двумерный массив В размерности 3*5. Получить новый массив с именем V путем удаления из В строки и столбца, в которых содержится минимальный элемент. Описать массив В как типизированную константу.

Program z5;
var
min: integer;
x,y,i,j:byte;
v:array[1..3,1..5] of integer;
const
b: array[1..3,1..5] of integer = ((2,2,2,2,2),(2,2,1,2,2),(2,2,2,2,2));
begin
writeln ('zadannaja matrica B');
for i:=1 to 3 do
begin
writeln('');
for j:=1 to 5 do
begin
write ('',b[i,j]);
end;
end;
writeln ('');
min:=b[i,j];
x:=1;
y:=1;
for i:=1 to 3 do
for j:=1 to 5 do
begin
if min>b[i,j] then
begin
min:=b[i,j];
x:=i;
y:=j;
end;
end;
for i:=1 to 3 do
for j:=1 to 5 do
begin
if  (i<>x) and (j<>y) then
v [i,j]:=b[i,j] else
v[i,j]:=0;
end;
writeln ('minimalnyj element b [',x,',',y,']');
writeln ('matrica V');
for i:=1 to 3 do
begin
writeln ('');
for j:=1 to 5 do
begin
write ('',v[i,j]);
end;
end;
end.

 

[Vladimir_S]

Например, так:

Program z5;
const
 b: array[1..3,1..5] of integer = ((3,5,7,8,11),(2,2,1,2,2),(2,4,6,8,10));
var
 min: integer;
 x,y,i,j:byte;
 v:array[1..3,1..5] of integer;
begin
 writeln ('zadannaja matrica B');
 for i:=1 to 3 do
  begin
   for j:=1 to 5 do
    write (b[i,j]:4);
   writeln;
  end;
 writeln;
 min:=b[1,1];
 for i:=1 to 3 do
  for j:=1 to 5 do
   if min>b[i,j] then
    begin
     min:=b[i,j];
     x:=i;
     y:=j;
    end;

 v:=b;

 for i:=x+1 to 3 do
  for j:=1 to 5 do
   v[i-1,j]:=v[i,j];

 for j:=y+1 to 5 do
  for i:=1 to 3 do
   v[i,j-1]:=v[i,j];

 writeln;
 writeln ('minimalnyj element b [',x,',',y,']');
 writeln;

 writeln ('novaja matrica V');
 for i:=1 to 2 do
  begin
   for j:=1 to 4 do
    write (v[i,j]:4);
   writeln;
  end;
 readln;
end.

 

[Svetlanka]

спасибо!