Дан двумерный массив N*N элементов. Обнулите первый минимальный элемент в указанной...

Question

Дан двумерный массив N*N элементов. Обнулите первый минимальный элемент в указанной строке. Паскаль АВС

Answer 1

//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