[Pascal] найти сумму элементов лежащих ниже побочной диагонали

[Рамик]

Задача: Дан массив, размерностью 5х5(квадратная матрица). найти сумму элементов лежащих ниже побочной диагонали.

Подскажите пожалуйста алгоритм...

Program p1;
uses crt;
var a:array[1..5,1..5] of integer;
      i,j:byte;
begin
writeln('vvedite elementi massiva:');
      For i:=1 to 5 do begin
          For j:=1 to 5 do
        readln(a[i,j]);
        end;
        ...

[Stilet]

Кажись так:

if (5-j)<i then Этот элемент лежит ниже побочной диагонали.

[Sazary]

Такой цикл:

sum := 0;
for i:=1 to 5 do
 for j:=7-i to 5 do
  sum := sum + a[i,j];

[Stilet]

Sazary

В условиях автора упадет второй цикл на первом шаге, потому как 7-1=6, а массив до 5-ти.

[Sazary]

Stilet
В общем виде будет так:

sum := 0;
for i:=1 to n do
 for j:=n-i+2 to n do
  sum := sum + a[i,j];

Если написать j:=n-i+1, то в сумму будут также включены элементы самой побочной диагонали, а этого по условию не нужно.

А если считать при вводе (как вы написали), то условие будет такое:

if (6-j)<i

т.е. в общем виде:

if (n-j+1)<i

Пример:

Program p1;
uses crt;
const n=5;
var a:array[1..n,1..n] of integer;
      i,j:byte;
sum : integer;
begin
clrscr;
randomize;
writeln('vvedite elementi massiva:');
sum := 0;
For i:=1 to n do begin
 For j:=1 to n do
  begin
  a[i,j] := random(10);

  if (n-j+1)<i then
   begin
   TextColor(12);
   sum := sum + a[i,j];
   end
  else TextColor(8);
  write(a[i,j]:4);
  end;
 writeln;
 end;
writeln;

TextColor(15);
writeln('sum= ',sum);
readln;
end.

[Рамик]

спасибо вам! все работает!
Sazary, не мог бы ты коментарий оставить к циклу со столбцами...

[Sazary]

Рамик Честно говоря, не знаю, что там можно прокомментировать )
А что непонятно?

[Рамик]

Сообщение от Sazary

Рамик Честно говоря, не знаю, что там можно прокомментировать )
А что непонятно?

"j:=5-i+2..." вот это не очень понял

[Sazary]

Для прохода по побочной диагонали нужен такой цикл (для примера, сумма элементов побочной диагонали):

for i:=1 to n do
 sum := sum + a[i, n-i+1];

1 2 3 4 5
1 2 3 4 5
1 2 3 4 5
1 2 3 4 5
1 2 3 4 5



Попробуйте нарисовать на бумаге матрицу, затем выберите какую-нибудь строку и попробуйте понять, какое уравнение будет для номера столбца, чтобы элемент был ниже диагонали.

Для сравнения, для прохода по главной диагонали, цикл такой:

for i:=1 to n do
 sum := sum + a[i,i];

Даже не знаю, как это объяснить...

[Stilet]

Рамик

А это просто смещение отсчета. Начало отсчета смещается в конец твоей матрицы поскольку побочная диагональ как выше показано начинается с конечной колонки матрицы