Найти сумму произведений положительных элементов каждой матрицы, которые лежат ниже главной диагонали.

@xpmail · Регистрация: 19.01.2010

Author24 — интернет-сервис помощи студентам

Помогите сделать задачу11.20. Задано две матрицы A (3,3) i B (4,4). Найти сумму произведений положительных элементов каждой матрицы, которые лежат ниже главной диагонали. Вычисления такого произведения оформить в виде процедуры-функции.Большое спасибо!

@Puporev · 26.01.2010, 21:27

Pascal

uses crt;
type matr=array[1..4,1..4] of integer;
procedure Vvod(var mt:matr;x:byte;c:char);
var i,j:byte;
begin
writeln('Введите ',x*x,' элементов матрицы:');
for i:=1 to x do
for j:=1 to x do
 begin
  write('el[',i,',',j,']=');
  readln(mt[i,j]);
 end;
clrscr;
writeln('Матрица ',c);
for i:=1 to x do
 begin
  for j:=1 to x do
  write(mt[i,j]:3,' ');
  writeln;
 end;
end;
function Proiz(mt:matr;x:byte):longint;
var i,j:byte;
    p:integer;
begin
p:=1;
for i:=2 to x do
for j:=1 to i-1 do
p:=p*mt[i,j];
Proiz:=p;
end;
 
var a,b:matr;
    pa,pb,s:longint;
begin
clrscr;;
Vvod(a,3,'A');
pa:=Proiz(a,3);
writeln('Произведение элементов ниже главной диагонали=',pa);
Vvod(b,4,'B');
pb:=Proiz(b,4);
writeln('Произведение элементов ниже главной диагонали=',pb);
s:=pa+pb;
write('Сумма произведений=',s);
readln
end.

@xpmail 0 / 0 / 0 Регистрация: 19.01.2010 Сообщений: 11
		1
	Найти сумму произведений положительных элементов каждой матрицы, которые лежат ниже главной диагонали. 26.01.2010, 21:00. Показов 1391. Ответов 1 Метки нет (Все метки) Помогите сделать задачу11.20. Задано две матрицы A (3,3) i B (4,4). Найти сумму произведений положительных элементов каждой матрицы, которые лежат ниже главной диагонали. Вычисления такого произведения оформить в виде процедуры-функции.Большое спасибо! 0

	26.01.2010, 21:27

Найти сумму произведений положительных элементов каждой матрицы, которые лежат ниже главной диагонали.

Решение