Технический форум

Технический форум (http://www.tehnari.ru/)

- Помощь студентам (http://www.tehnari.ru/f41/)

- - На Паскале (http://www.tehnari.ru/f41/t88853/)

На Паскале

Вычислить сумму и число положительных элементов матрицы А.
Элементы матрицы вычисляются по формуле , Ai,j=((-1)^j*(j-1)!)/((j)!)
где i,j = 1, 2, …, 10.

Вычислить сумму и число положительных элементов матрицы А.
Формулу впишешь сам.

Цитата:

Program mas2;
var
i,j,sum,kol:integer;
a: array [1..5, 1..5] of integer;
function rs (var kol:integer): integer;
var sum:integer;
begin
sum:=0;
kol:=0;
for i:=1 to 5 do
for j:=1 to 5 do
if (A[i,j]>0) and (j>i) then
begin inc(kol); sum:=sum+A[i,j]; end;
rs:=sum;
end;
begin
for i:=1 to 5 do
for j:=1 to 5 do
A[i,j]:= Random (9);
for i:=1 to 5 do
begin
for j:=1 to 5 do
write(A[i,j]:2);
writeln;
end;
writeln;
sum:=rs(kol);
writeln('Сумма= ',sum);
writeln('Количество=',kol);
readln;
end.