Найти сумму элементов, расположенных ниже главной диагонали квадратной матрицы - Pascal ABC

Формулировка задачи:

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

Код к задаче: «Найти сумму элементов, расположенных ниже главной диагонали квадратной матрицы - Pascal ABC»

textual
uses crt;
const N=10;
var arr:array[1..N,1..N] of integer;
    i,j,sum:integer;
begin
for i:=1 to N do
 begin
  for j:=1 to N do
   begin
   arr[i,j]:=random(10);
   if i-1>=j then
    begin
    sum:=sum + arr[i,j];
    textcolor(red);
    end
   else
    textcolor(blue);
   write(arr[i,j],' ');
   end;
 writeln();
 end;
textcolor(black);
writeln('Cумма элементов, расположенных ниже главной диагонали: ', sum);
end.

6   голосов, оценка 3.833 из 5


СОХРАНИТЬ ССЫЛКУ
Похожие ответы