Найти отдельно сумму элементов главной и побочной диагонали квадратной матрицы (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

//Pascal ABC.NET v3.0 сборка 1111

Const
 n=5;

Var
 ma:array[1..n,1..n] of integer;
 i,j:integer;
begin
 writeln('Matrix reading...');
 for i:=1 to n do
  begin
   writeln;
    for j:=1 to n do
      readln(ma[i,j]);
  end;
 writeln('First matrix:');
 for i:=1 to n do
  begin
   writeln;
    for j:=1 to n do
     begin
      write(ma[i,j]:4);
      if (ma[i,j]<-8) or (ma[i,j]>6) then ma[i,j]:=sqr(ma[i,j]);
     end;
  end;
 writeln;
 writeln('Final matrix:');
 for i:=1 to n do
  begin
   writeln;
    for j:=1 to n do
     write(ma[i,j]:4);
  end;
end.

Пример ввода:
1
2
3
4
5

6
7
8
9
1

2
3
4
5
6

7
8
9
1
2

3
4
5
6
7
Пример вывода:
First matrix:
   1   2   3   4   5
   6   7   8   9   1
   2   3   4   5   6
   7   8   9   1   2
   3   4   5   6   7
Final matrix:
   1   2   3   4   5
   6  49  64  81   1
   2   3   4   5   6
  49  64  81   1   2
   3   4   5   6  49

//Pascal ABC.NET v3.0 сборка 1111

Const
 s=5;

Var
 ar:array[1..s] of integer;
 n,m,i:integer;
begin
 writeln('N');
 readln(n);
 writeln('M');
 readln(m);
 writeln('Array:');
 for i:=1 to s do
   readln(ar[i]);
 writeln('First array:');
 for i:=1 to s do
  begin
   write(ar[i]:4);
   if ar[i] div n<>0 then ar[i]:=ar[i]+m;
  end;
 writeln;
 writeln('Final array:');
  for i:=1 to s do
   write(ar[i]:4);
end. 

Пример ввода:
3
3
1
2
3
4
5
Пример вывода:
First array:
   1   2   3   4   5
Final array:
   1   2   6   7   8

//Блок-схема во вложении