Помогите пожалуйста!!!! Паскаль АВС В каждой строке двумерного массива поменять местами первый элемент и любой из максимальных. Использовать только циклы, без функция и т.п.
var a[1..5,1..5] of integer; b,i,j,l: integer;
Begin
// считываешь элементы массива. Сама справишься.
For i:=1 to 5 do
for j:=2 to 5 do
if a[i,1] For i:=1 to 5 do begin for j:=1 to 5 do Write(a[i,j],' '); writeln; end; end.
For i:=1 to 5 do begin
for j:=1 to 5 do
Write(a[i,j],' ');
writeln;
end;
end.