Дан двумерный массив N*N элементов. Обнулите первый минимальный элемент в указанной строке. Паскаль АВС
Дан двумерный массив N*N элементов. Обнулите первый минимальный элемент в указанной строке. Паскаль АВС
Гость
Ответ(ы) на вопрос:
Гость//PascalABC.NET 3.2 сборка 1318
Var
Matrix:array of array of integer;
i,j,min,n,k,mini,minj:integer;
begin
readln(n);
setlength(Matrix,n+1);
for i:=1 to n do
setlength(Matrix[i],n+1);
writeln('First matrix:');
for i:=1 to n do
begin
for j:=1 to n do
begin
Matrix[i,j]:=random(10);
write(Matrix[i,j]:4);
end;
writeln;
end;
write('Введите строку:');
readln(k);
min:=integer.MaxValue;
for i:=1 to n do
if min>Matrix[k,i] then
begin
min:=Matrix[k,i];
mini:=k;
minj:=i;
end;
Matrix[mini,minj]:=0;
writeln('Final matrix:');
for i:=1 to n do
begin
for j:=1 to n do
write(Matrix[i,j]:4);
writeln;
end;
end.
Пример работы программы:
3
First matrix:
3 0 0
2 5 9
8 4 4
Введите строку:3
Final matrix:
3 0 0
2 5 9
8 0 4
Не нашли ответ?
Похожие вопросы