Информатика, опубликовано 18.03.2019 12:50
Дан массив b(n*m).элементы массива ввести в программе.поменять местами максимальный и минимальный элемент. паскаль двумерный массив пример присвоения элементов массива в программе : b: array[1..n, 1..m] of integer=((5,4,8,4,,3,4,5,,4,3,4,,3,4,5,,3,4,5,2));
Ответ оставил: Гость
// pascalabc.net 3.0, сборка 1128 begin var b: array[,] of integer: =((5,8,7,,0,6,,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]]
Информатика, опубликовано 09.01.2019 16:01
Информатика, опубликовано 09.01.2019 16:01
Информатика, опубликовано 09.01.2019 16:01
Информатика, опубликовано 09.01.2019 16:01