Программа на матрицу. Паскаль

[shArd]

Здравствуйте, уважаемые форумчане, помогите пожалуйста решить задачку: Дана матрица А(N,N) вещественных значений. Найти сумму минимальных элементов всех диагоналей, параллельных главной.

[p51x]

В чем проблема? Не знаете, что такое диагональ или минимум?

[shArd]

Знаю, вот сам код программы, но считает не правильно. Где здесь ошибка?
Код:

program minimum;
uses crt;
const
n=3;
var
a:array [1..n, 1..n] of real;
min, s:real;
i,j:integer;
begin
for i:=1 to n do
for j:=1 to n do
readln (a [i,j]); {vvod matrici a}
s:=0;
for j:=1 to n do
begin
min:= a[i,j+1];
for i:=1 to n do
if a[i,j+1]<min then
min:=a[i,j+1];
s:=s+min;
end;
writeln (s); {vivod chisla s}
readln;
end.

[p51x]

Какие индексы у диагональных элементов?

[shArd]

i,j+1
i+1,j

[p51x]

Я спрашивал не какие у вас в программе написаны, а какие у матирицы!

Запишите матрицу на листочке, вы пишите индексы, помидитируйте, увидите простую закономерность от номера строки...