В последовательности действительных чисел a1, a2, …, an есть только положительные и отрицательные элементы. Вычислить произведение отрицательн

@AlekSanDrIII · Регистрация: 20.05.2010

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

В последовательности действительных чисел a1, a2, …, an есть только положительные и отрицательные элементы. Вычислить произведение отрицательных элементов P1 и произведение положительных элементов Р2. Указать какое произведение по модулю больше.

Помогите плз на паскале решить.

@STGE · 20.05.2010, 16:26

Pascal

p1:=1;
p2:=1;
for i:=1 to n do
begin
if a[i]>0 then p1:=p1*a[i];
if a[i]<0 then p2:=p2*a[i];
end;
if p1>abs(p2) then writeln('произведение положительных больше abs произведения отрицательных')
else if p1<abs(p2) then writeln('abs произведение отрицательных больше произведения положительных')
else writeln('произведения равны');

@AlekSanDrIII · 20.05.2010, 18:38 **[ТС]**

подскажите как объявить a[i].

@STGE · 20.05.2010, 19:29

подскажите как объявить a[i].

Pascal

1 2	const n=10; var a: array[1..n] of real;

@AlekSanDrIII · 20.05.2010, 20:27 **[ТС]**

спасибо!

@AlekSanDrIII 0 / 0 / 0 Регистрация: 20.05.2010 Сообщений: 36
		1
	В последовательности действительных чисел a1, a2, …, an есть только положительные и отрицательные элементы. Вычислить произведение отрицательн 20.05.2010, 16:22. Показов 6071. Ответов 4 Метки нет (Все метки) В последовательности действительных чисел a1, a2, …, an есть только положительные и отрицательные элементы. Вычислить произведение отрицательных элементов P1 и произведение положительных элементов Р2. Указать какое произведение по модулю больше. Помогите плз на паскале решить. 0

@AlekSanDrIII 0 / 0 / 0 Регистрация: 20.05.2010 Сообщений: 36
	20.05.2010, 18:38 [ТС]	3
	подскажите как объявить a[i]. 0

@AlekSanDrIII 0 / 0 / 0 Регистрация: 20.05.2010 Сообщений: 36
	20.05.2010, 20:27 [ТС]	5
	спасибо! 0