Составить программу нахождения произведения.

@orif · Регистрация: 08.03.2011

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

13. Составить программу нахождения произведения отрицательных элементов двумерного массива А(3,5).
26. Составить программу нахождения произведения нечетных элементов одномерного массива целых чисел. Для подсчета произведения использовать функцию пользователя.

@Nijaz · 29.03.2011, 14:59

13. Составить программу нахождения произведения отрицательных элементов двумерного массива А(3,5).

Pascal

program pr;
var
a:array[1..3,1..5] of integer;
i,j,p,n,m:integer;
begin
for i:=1 to 3 do
for j:=1 to 5 do
a[i,j]:=random(20)-10;
for i:=1 to 3 do
begin
for j:=1 to 5 do
write(a[i,j]:3);
writeln;
end;
p:=1;
for i:=1 to 3 do
for j:=1 to 5 do
if a[i,j]<0 then p:=p*a[i,j];
writeln(p);
readln;
end.

Добавлено через 11 минут
26. Составить программу нахождения произведения нечетных элементов одномерного массива целых чисел. Для подсчета произведения использовать функцию пользователя.

Pascal

uses crt;
var
a:array[1..100] of integer;
n:integer;
 
function proizv(i:integer):integer;
var
p:integer;
begin
p:=1;
for i:=1 to n do
begin
if a[i] mod 2<>0 then
p:=p*a[i];
end;
proizv:=p;
end;
 
var
i,s:integer;
begin
clrscr;
readln(n);
for i:=1 to n do
begin
readln(a[i]);
end;
for i:=1 to n do
write(a[i]:3);
s:=proizv(i);
writeln;
writeln(s);
end.

@orif · 29.03.2011, 15:02 **[ТС]**

Спасибо огромное!

@orif 22 / 22 / 9 Регистрация: 08.03.2011 Сообщений: 155
		1
	Составить программу нахождения произведения. 29.03.2011, 14:40. Показов 2621. Ответов 2 Метки нет (Все метки) 13. Составить программу нахождения произведения отрицательных элементов двумерного массива А(3,5). 26. Составить программу нахождения произведения нечетных элементов одномерного массива целых чисел. Для подсчета произведения использовать функцию пользователя. 0

@orif 22 / 22 / 9 Регистрация: 08.03.2011 Сообщений: 155
	29.03.2011, 15:02 [ТС]	3
	Спасибо огромное! 0

Составить программу нахождения произведения.

Решение