Найти сумму элементов матрицы главной и побочной диагонали...((

[Анастасия01]

Здравствуйте....Все никак зачет по информатике не могу сдать))) бестолковая)
Помогите пожалуйста решить задачку:
дана матрица {Aij}, i=j найти сумму элементов главной и побочной диагонали...

буду очень благодарна

[Mandrivnyk]

C/C++

sum1 = sum2 = 0;
for (int i = 0; i < n; i++)
{
    sum1 += a[i][i];
    sum2 += a[i][n-1-i];
}

n -- размерность матрицы.
Ввод/вывод и объявления переменных -- сама -)

[Анастасия01]

В Паскале я совсем новичок=( из выше написанного не все поняла... Старалась сама решить задачку,но не совсем уверена что правильно,тк никогда не совмещала несколько условий в одной программе.

Program PR;
var
A:array[1..9,1..9] of real;
Sum1,Sum2:real;
I,J:integer;
Begin
Writeln ('vvesti matr');
for J:=1 to 9 do read (A[I,j]);
for I:=1 to 10 do read (A[I,j]);
Readln;
end;
Sum1=Sum2=0;
For I:=1 to 10 do
Sum1:=Sum1+A[I,I];
For J:=1 to 9 do
Sum2:=Sum2+A[I,10-I];
Writeln('Sum1=',Sum1);
Writeln('Sum2=',Sum2);
Readln;
end.

[Mandrivnyk]

Program PR;
var
    A:array[1..9,1..9] of real;
    Sum1,Sum2: real;
    I,J: integer;
Begin
    Writeln ('vvesti matr');
    for J := 1 to 9 do 
        for I := 1 to 9 do
            read (A[I, J]);
    Readln;
    Sum1 := 0;
    Sum2 := 0;
    For I :=1 to 9 do
        For J :=1 to 9 do
            begin
                Sum1 := Sum1 + A[I,J];
                Sum2 := Sum2 + A[I, 10 - J];
            end;
    Writeln('Sum1 = ', Sum1);
    Writeln('Sum2 = ', Sum2);
Readln;
End.

Что-то в этом роде...

[Анастасия01]

Спасибо огромное!!!