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

Question

Информатика

Мелана

12 августа, 11:35

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

+4

Ответы (1)

Знаете ответ?

Ритоша · Answer 1

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.