Вопрос пользователя:
вычислить сумму положительных и произведение отрицательных элементов массива
написать программу в паскале
Илюха отвечает:
var a: array [1..10] of integer;
s,s1,i: integer;
begin
s:=0;
s1:=1;
for i:=1 to 10 do
begin
readln(a[i]);
if a[i]>0 then s:=s+a[i];
if a[i]<0 then s1:=s1*a[i];
end;
writeln(‘Сумма: ‘,s,’, произведение: ‘,s1);
end.