Вмассиве 4 на 4 найти сумму элементов побочной диагонали поменять местами 1 и последний столбец поменять местами минимальный элемент первой строки и максимальный элемент последнего столбца вывести получены массив.
195
377
Ответы на вопрос:
Из текста непонятно, нужен ли промежуточный вывод, поэтому он присутствует после каждого этапа, чтобы убедиться в правильности работы программы. программа написана и отлажена в среде pascalabc.net. const n = 4; var a: array[1..n,1..n] of integer; i,j,s,amin,jmin,amax,imax: integer; begin { инициализация массива } writeln('исходный массив'); for i: =1 to n do begin for j: =1 to n do begin a[i,j]: =random(51)-25; { случайные числа на [-25; 25] } write(a[i,j]: 4) end; writeln end; { сумма элементов побочной диагонали } s: =0; for i: =1 to n do s: =s+a[n-i+1,i]; writeln('сумма элементов побочной диагонали: ',s); writeln('меняем местами первый и последний столбцы'); for i: =1 to n do begin s: =a[i,1]; a[i,1]: =a[i,n]; a[i,n]: =s end; { вывод } for i: =1 to n do begin for j: =1 to n do write(a[i,j]: 4); writeln end; { меняем местами минимальный элемент первой строки и максимальный элемент последнего столбца } amin: =a[1,1]; jmin: =1; for j: =2 to n do if amin> a[1,j] then begin amin: =a[1,j]; jmin: =j end; amax: =a[1,n]; imax: =1; for i: =2 to n do if amax< a[i,n] then begin amax: =a[i,n]; imax: =i end; a[1,jmin]: =amax; a[imax,n]: =amin; writeln('массив после обмена местами найденных элементов'); for i: =1 to n do begin for j: =1 to n do write(a[i,j]: 4); writeln end end. тестовое решение: исходный массив -14 -25 -14 -11 8 -5 5 0 5 20 -7 -9 -23 4 -3 18 сумма элементов побочной диагонали: -9 меняем местами первый и последний столбцы -11 -25 -14 -14 0 -5 5 8 -9 20 -7 5 18 4 -3 -23 массив после обмена местами найденных элементов -11 8 -14 -14 0 -5 5 -25 -9 20 -7 5 18 4 -3 -23
Популярно: Информатика
-
azatbaykov0019.06.2020 04:50
-
Галя442512.11.2020 05:19
-
bonipasol104.05.2023 05:57
-
alesyshapiro04.12.2022 18:32
-
nastabugrim08.07.2021 12:17
-
artchapyshev06.01.2023 16:28
-
мaкs200507.04.2023 14:05
-
yasharks201321.11.2021 04:03
-
choserge10.04.2023 19:54
-
Alina431523.08.2022 18:03