// PascalABC.NET 3.0, сборка 1128 begin var b:array[,] of integer:=((5,8,7,3),(-2,0,6,9),(2,1,12,4)); Writeln('Массив B: ',b); var n:=b.GetLength(0); var m:=b.GetLength(1); var imax:=0; var jmax:=0; var imin:=0; var jmin:=0; for var i:=0 to n-1 do for var j:=0 to m-1 do if b[i,j]>b[imax,jmax] then begin imax:=i; jmax:=j end else if b[i,j]<b[imin,jmin] then begin imin:=i; jmin:=j end; Swap(b[imin,jmin],b[imax,jmax]); Writeln('Результирующий массив: ',b) end.
Так что такое Windows? Это операционная система, которая используется на многих компьютерах. С вероятность девять к одному, что Вы, человек, который читает данную заметку, являетесь пользователем операционной системы Windows. Сейчас существует много операционных систем в мире, у всех их одно предназначение, но различий масса. Приведу названия некоторых из них:
Windows.
Linux.
Mac.
Unix.
Это ДАЛЕКО не весь список операционных систем. А как вы думаете, что лежит в основе управления смартфонами? Да, да, именно операционные системы, и их также существует несколько разновидностей.
Те названия ОС, что я привел выше – не полные, так как имеют несколько версий. Одни различаются по времени создания, другие по функциональности. Одной только Windows, существует около десяти штук.
begin
var b:array[,] of integer:=((5,8,7,3),(-2,0,6,9),(2,1,12,4));
Writeln('Массив B: ',b);
var n:=b.GetLength(0);
var m:=b.GetLength(1);
var imax:=0; var jmax:=0;
var imin:=0; var jmin:=0;
for var i:=0 to n-1 do
for var j:=0 to m-1 do
if b[i,j]>b[imax,jmax] then begin imax:=i; jmax:=j end
else
if b[i,j]<b[imin,jmin] then begin imin:=i; jmin:=j end;
Swap(b[imin,jmin],b[imax,jmax]);
Writeln('Результирующий массив: ',b)
end.
Тестовое решение:
Массив B: [[5,8,7,3],[-2,0,6,9],[2,1,12,4]]
Результирующий массив: [[5,8,7,3],[12,0,6,9],[2,1,-2,4]]
Особенности интерфейса ОС Windows
Так что такое Windows? Это операционная система, которая используется на многих компьютерах. С вероятность девять к одному, что Вы, человек, который читает данную заметку, являетесь пользователем операционной системы Windows. Сейчас существует много операционных систем в мире, у всех их одно предназначение, но различий масса. Приведу названия некоторых из них:
Windows.
Linux.
Mac.
Unix.
Это ДАЛЕКО не весь список операционных систем. А как вы думаете, что лежит в основе управления смартфонами? Да, да, именно операционные системы, и их также существует несколько разновидностей.
Те названия ОС, что я привел выше – не полные, так как имеют несколько версий. Одни различаются по времени создания, другие по функциональности. Одной только Windows, существует около десяти штук.
Удач