Задача на составление программы на языке Pascal. Вычислить сумму и число элементов матрицы A[6x6], находящихся под главной диагональю
Ответы
Ответ:
В объяснении
Объяснение:
program zadacha;
const n= 6, m=6;
var a:array[1..n, 1..m] of integer;
i, j, s, k: integer;
begin
RANDOMIZE;
for i:=1 to n do
begin
for j:=1 to m do
begin
a[i,j]:= random (100)-50;
write(a[i,j]:5);
end;
writeln;
end;
s:=0;
k:=0;
for i:=1 to n do
for j:=1 to m do
if i>j then
begin
k:=k+1;
s:=s+a[i,j];
end;
writeln('Сумма=',s);
writeln('Количество=',k);
readln;
end.
// PascalABC.NET
begin
var n := 6;
var a := MatrRandom(6, 6, -99, 99).Println;
var (k, s) := (0, 0);
for var i := 1 to n - 1 do
for var j := 0 to i - 1 do
begin
Inc(k);
s += a[i,j]
end;
Println('Сумма элементов', s);
Print('Их количество', k)
end.
