Исправьте программу в паскале.

[Figushkin]

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

program vosem;
uses crt;
TYPE
massiv=array[1..1000] of real;
var p1,p2,n,i,m:integer;
x:massiv;

begin
clrscr;
writeln('введите количество элементов в массиве');
readln(n);
for i:=1 to n do
begin
write('X[',i,']= ');
readln(x[i]);
end;
begin
if х[i]>0 then
p1:=p1*x[i];
if х[i]<0 then
p2:=p2*х[i];
end;
if p1>abs(p2) then
writeln('произведение положительных больше по модулю произведения отрицательных')
else
if p1<abs(p2) then
writeln('произведение отрицательных по модулю больше произведения положительных')
else
writeln('произведения равны');
readln;
repeat until keypressed;
end.

Выдает ошибку, попытка присвоить переменной типа integer выражение типа real.

[ROMA2PVT]

А теперь на свою взгляни.

program vosem;
uses crt;
TYPE
massiv=array[1..100] of real;
var n,i,m:integer;
 p1,p2:real;
x:massiv;

begin
clrscr;
p1:=1;
p2:=1;
write('введите количество элементов в массиве');
readln(n);
for i:=1 to n do
begin
write('X[',i,']= ');
readln(x[i]);
if x[i]>0 then
begin
p1:=p1*x[i];
end;
if x[i]<0 then
begin
p2:=p2*x[i];
end;
end;
writeln;
if abs(p1)>abs(p2) then
writeln('произведение положительных больше по модулю произведения отрицательных')
else
if abs(p1)<abs(p2) then
writeln('произведение отрицательных по модулю больше произведения положительных')
else
writeln('произведения равны');
readln;
repeat until keypressed;
end.

[Ol'ga_new]

Сам ответил на свой вопрос типы р1,р2 и тип элементов массива должны совпадать, что и исправил в твоей программе ROMA2PVT.

[ROMA2PVT]

и вот это

begin
if х[i]>0 then
p1:=p1*x[i];
if х[i]<0 then
p2:=p2*х[i];
end;

[Figushkin]

Большое спасибо