Найти сумму элементов матрицы, лежащих ниже главной диагонали - Turbo Pascal (33592)
Формулировка задачи:
Помогите решить задачку.
Есть матрица (целочисленная) A(4х4). Найти сумму ее элементов, лежащих ниже главной диагонали.
Данные нужно выполнить через оператор For.
Перебор элементов исходной матрицы вести по строкам.
Программу сделать через два оператора While
За ранее спасибо.
Решение задачи: «Найти сумму элементов матрицы, лежащих ниже главной диагонали»
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.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д