Дана матрица. Вычислить сумму и число положительных элементов, находящихся под главной диагональю. Вывести матрицу, сумму и число.
Дана матрица. Вычислить сумму и число положительных элементов, находящихся под главной диагональю. Вывести матрицу, сумму и число.
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы