В двумерной матрице найти минимальные элементы каждой строки и переставить на первое место

TR0JlNk

В двумерной матрице состоящей из N на M элементов, найти min элементы каждой строки и min переставить на первое место
1 ответ

TR0JlNk

uses crt;
var a:array[1..100,1..100] of integer;
    n,m,i,j,min,t:integer;
begin
     clrscr;
     randomize;
     writeln('n=');read(n);
     writeln('m=');read(m);
     writeln('Исходная матрица');
     for i:=1 to n do
     begin
     for j:=1 to m do
     begin  
       a[i,j]:=Random(9)+1;
       write(a[i,j]:4);
     end;
     writeln();
     end;
     for i:=1 to n do
     begin
     min:=1;
     for j:=2 to m do
     if a[i,j]<a[i,min] then min:=j;
     t:=a[i,min]; a[i,min]:=a[i,1]; a[i,1]:=t;
     end;
     writeln('Полученная матрица');
     for i:=1 to n do
     begin
     for j:=1 to m do
         write(a[i,j]:4);     
     writeln();
     end;    
end.