Цитата:
Сообщение от Serjant0007
Дана целочисленная матрица W(4×4) вычислить сумму ее элементов, лежащих ниже главной диагонали. Использовать операторы For и While.
|
Типа этой решал но незнаю вместе с For и с While
Program zadacha;
Uses crt;
const
n = 4;
var
Matr: Array[1..n, 1..n] of Integer;
i, j: Byte;
sum:real;
begin
Randomize;
writeln('Матрица: ');
for i:=1 to n do
begin
for j:=1 to n do
begin
Matr[i, j]:=Random(99);
if (j < i) then
sum:=sum+Matr[i,j];
write(Matr[i, j]:4);
end;
writeln;
end;
writeln('Сумма эл. ниже гл. диагонали ', sum);
Readkey;
end.