Паскаль. в двумерном массиве найти сумму элементов главной и побочной диагонали, элемент, находящийся в центре должен быть посчитан лишь один раз. нужно написать программу.

173

233

Посмотреть ответы 2

Ответы на вопрос:

brainsofi1

Информатика

4,6(14 оценок)

Var matrix: array[1..5,1..5] of integer; i, j: integer; sg: =0; sp: =0; begin writeln ('введите 25 чисел: '); for i : = 1 to 5 do for j : = 1 to 5 do read (matrix[i,j]); for i : = 1 to 5 do begin for j : = 1 to 5 do write (matrix[i,j], ' '); writeln end; for i: =1 to 5 do begin for j: = 1 to 5 do if j=i then sg: =sg+matrix[i,j]; end; for i: =5 downto 1 do begin for j: =1to 5 do if (i+j)=6 then sp: =sp+matrix[i,j] end; sp: =sp-matrix[3,3]; 1 writeln(sg,' ',sp); readln end.