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