Дан массив B(n*m).Элементы массива ввести в программе.Поменять местами максимальный и минимальный элемент. Паскаль двумерный массив пример присвоения элементов массива в программе : b: array[1..n, 1..m] of integer=((5,4,8,4,5),...
Дан массив B(n*m).Элементы массива ввести в программе.Поменять местами максимальный и минимальный элемент. Паскаль
двумерный массив
пример присвоения элементов массива в программе :
b: array[1..n, 1..m] of integer=((5,4,8,4,5),(2,3,4,5,2),(5,4,3,4,5),(2,3,4,5,2),(2,3,4,5,2));
Гость
Ответ(ы) на вопрос:
Гость// 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]
Не нашли ответ?
Похожие вопросы