program Calculate;
var
A: array[1..11] of integer;
i, product, sum: integer;
begin
product := 1;
sum := 0;

// Ввод элементов массива
writeln('Введите элементы массива A:');
for i := 1 to 11 do
begin
write('A[', i, ']: ');
readln(A[i]);
end;

// Вычисление произведения положительных и суммы отрицательных элементов
for i := 1 to 11 do
begin
if A[i] > 0 then
product := product * A[i]
else
sum := sum + A[i];
end;

// Вывод результата
writeln('Произведение положительных элементов: ', product);
writeln('Сумма отрицательных элементов: ', sum);
end.

// Заданный массив A(11)
// 2, -5, 7, 0, -3, 9, -4, 1, 6, -2, 8

// Результат работы программы
// Произведение положительных элементов: 6048
// Сумма отрицательных элементов: -14