дана матрица В[N,M].найти в каждой строке матрицы максимальный и минимальный элемент и поменять их местами с первым и последним элементом строки соответственно.(Паскаль)

Надеюсь помог. если да то нажмите*спасибо*! Удачи вам!

Спасибо большое)

1)uses crt;2)var a:array[1..20,1..20] of integer;3)n,m,i,j,mn,mx,jmn,jmx,x,y:integer;4)begin5)clrscr;6)randomize;7)write('Количество строк n=');8)readln(n);9)write('Количество столбцов m=');10)readln(m);11)writeln('Исходная матрица:');12)for i:=1 to n do13)begin14) for j:=1 to m do15)begin16)a[i,j]:=random(20);17)write(a[i,j]:4);18)end;19)writeln;20)end;21)for i:=1 to n do22)begin23)mx:=a[i,1];mn:=a[i,1];24)jmx:=1;jmn:=1;25)for j:=1 to m do26)begin27)if a[i,j]>mx then28)begin29)mx:=a[i,j];30)jmx:=j;31)end;32)if a[i,j]<mn then33)begin34)mn:=a[i,j];35)jmn:=j;36)end;37)end;38)x:=a[i,1];39)a[i,1]:=a[i,jmx];40)a[i,jmx]:=x;41)y:=a[i,m];42)a[i,m]:=a[i,jmn];43)a[i,jmn]:=y;44)end;45)writeln('Результат:');46)46)for i:=1 to n do47)begin48)for j:=1 to m do49)write(a[i,j]:4);50)writeln;51)end;52)readln53)end.

// PascalABC.NET 3.3, сборка 1611 от 06.01.2018// Внимание! Если программа не работает, обновите версию!beginvar (n,m):= ReadInteger2('n, m -> ');var a:= MatrRandom(m,n);Writeln('Исходная матрица:');a.Println;dec(n);dec(m);for var i:= 0 to m dobegin  swap(a[i, a.Row(i).IndexMin],a[i, n]);  swap(a[i, a.Row(i).IndexMax],a[i, 0]);end;Writeln('Конечная матрица:');a.Printend.Пример:n, m ->  4 5Исходная матрица:  95  62  11  82  91  98  80   6  21  73  62  70  36  25  89  22  44  42  80  65Конечная матрица:  95  62  82  11  98  91  80   6  73  70  62  21  89  25  36  22  80  65  44  42