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

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

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


textual

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

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.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

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

Источник
Похожие ответы