Напишите программу в паскале ** нахождение суммы главных диагоналей для квадратной...

Question

Напишите программу в паскале на нахождение суммы главных диагоналей для квадратной матрицы. Помогите, пожалуйста

Comments

В смысле 1диагональ - столько-то, вторая - столько-то или 1+2?

---

1 диагональ–3,вторая–3

Answer 1

Program matrica;
Uses crt;
Var a:array [0..8 ,  0..8] of integer;
       sum1,sum2,i,j:integer;
begin
randomize;
sum1:=0;
sum2:=0
for i:=1 to 8 do
begin
Writeln;
for j:=1 to 8 do
begin
a[i,,j]:=random(10);
if i=j then sum1:=sum1+a[i,j];
if i+j=9 then sum2:=sum2+a[i,j];
Write(a[i,j], '    ');
end;
end;
writeln('Сумма чисел первой диагонали -',sum1,'  'Сумма чисел второй диагонали' ,sum2,');
end.

Comments

А если на одну диагональ?

---

ответ в этой проге универсальный, т.к. показана сумма первой и второй диагоналей отдельно

---

Спасибо