Дан двумерный массив заполненный случайным образом.найти сумму нижнего треугольника ограниченного главной и побочной диагоналями (паскаль)

[Сердар]

Дан двумерный массив заполненный случайным образом.найти сумму нижнего треугольника ограниченного главной и побочной диагоналями (паскаль)

[Aleksandr H.]

(i>j) and (i+j<n+1)

[newerow1989]

const n=10;
var p:array[1..n,1..n] of integer;
    i,j,s:integer;
begin
   Randomize;
   For i:=1 to n do
   begin
      For j:=1 to n do
      begin
         p[i,j]:=Random(21);
         Write(p[i,j]:3,'  ');
      end;
      Writeln;
   end;
   Writeln;
   s:=0;
   For i:=1 to n do
      For j:=1 to n do
         If (i>j) and (n-i+1<j) then
            s:=s+p[i,j];
   Writeln(s);
   Readln;
end.

[Serge_Bliznykov]

Сообщение от Aleksandr H.

(i>j) and (i+j<n+1)

о, как показал Неверов, это неверное условие. (это "левый" треугольник)

а вот условие

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

(i>j) and (n-i+1<j)

(ну или

(i>j) and (i+j>n+1)

- верное.

[Aleksandr H.]

Да лан, не туда посмотрел WP_20171024_13_21_40_Pro.jpgВсе одно ТС хотел халявы и даже не понял что мое сообщение означало

[newerow1989]

Сообщение от Aleksandr H.

Да лан, не туда посмотрел

Бывает иногда

[Serge_Bliznykov]

Сообщение от Aleksandr H.

Да лан, не туда посмотрел

та ничего страшного, не журись, бывает.
я же написал не в упрёк, а для того, чтобы тому, кто тему найдёт, всё понятно было.
тем более теперь в теме есть классная фотка-подсказка.