Найти отдельно сумму элементов главной и побочной диагонали квадратной матрицы (pascal ABC) ​

Решение

gekasa, Я не силен в дополнительных диагоналях) вот главную и побочную знаю. А дополнительная - это как?

Добавлено через 35 минут

gekasa, Вот для суммы главной и побочной, для остальных думаю поймешь или напиши (нарисуй) как выглядят дополнительные диагонали.

PascalВыделить код

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

program mas1;

const

nmax=100;

var

a: array[1..nmax,1..nmax] of integer;

n,i,j,sum,sum1: integer;

begin

randomize;

write('Ââåäèòå ðàçìåð ìàòðèöû n: ');

readln(n);

writeln('Ìàòðèöà:');

for i:=1 to n do

begin

for j:=1 to n do

begin

a[i,j]:=random(150)-50;

write(a[i,j]:5);

end;

writeln;

end;

sum:=0;

sum1:=0;

j:=1;

for i:=1 to n do

sum:=sum+a[i,i];

for i:=n downto 1 do

begin

sum1:=sum1+a[i,j];

j:=j+1;

end;

writeln('Ñóììà ãëàâíîé äèàãîíàëè: ',sum);

writeln('Ñóììà ïîáî÷íîé äèàãîíàëè: ',sum1);

writeln;

end.

0