Найти сумму элементов матрицы, лежащих ниже главной диагонали - Turbo Pascal (33592)

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

Помогите решить задачку. Есть матрица (целочисленная) A(4х4). Найти сумму ее элементов, лежащих ниже главной диагонали. Данные нужно выполнить через оператор For. Перебор элементов исходной матрицы вести по строкам. Программу сделать через два оператора While За ранее спасибо.

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

textual
uses crt;
const n=4;
var a:array[1..n,1..n] of integer;
    i,j,s:integer;
begin
clrscr;
randomize;
writeln('Исходная матрица');
{ввод элементов в циклах с оператором for}
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=random(20);
    write(a[i,j]:4)
   end;
  writeln
 end;
{вычисление суммы с операторами while}
s:=0;
i:=2;
while i<=n do
 begin
  j:=1;
  while j<i do
   begin
    s:=s+a[i,j];
    j:=j+1
   end;
  i:=i+1
 end;
write('Сумма ниже главной диагонали=',s);
readln
end.

11   голосов, оценка 4.273 из 5


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