На Паскале

Женек · 08.06.2013, 13:41

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

Gruvi · 08.06.2013, 17:34

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

Цитата:

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.

08.06.2013, 13:41	#1 (permalink)
Женек Member Регистрация: 16.03.2013 Сообщений: 18 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	На Паскале Вычислить сумму и число положительных элементов матрицы А. Элементы матрицы вычисляются по формуле , Ai,j=((-1)^j*(j-1)!)/((j)!) где i,j = 1, 2, …, 10.

Опции темы
Версия для печати Отправить по электронной почте
Опции просмотра
Линейный вид Комбинированный вид Древовидный вид

08.06.2013, 13:41
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Поищите решение проблемы в аналогичных обсуждениях Задача на Паскале Задача на Паскале

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070