Question

Дана матрица. Вычислить сумму и число положительных элементов, находящихся под главной диагональю. Вывести матрицу, сумму и число.

Answer 1

const N=4;
var a:array[1..N,1..N]of integer;
i,j,s,k:integer;
begin
for i:=1 to N do for j:=1 to N do a[i,j]:=random(10);
for i:=1 to N do begin for j:=1 to N do write(a[i,j],' '); if j=N then writeln; end;

for i:=1 to N do
for j:=1 to N do
if (i>j) then begin inc(k); s:=s+a[i,j]; end;
writeln(s,' ',k);
end.