1) Программа вычисления произведения положительных чисел в массиве А, содержащем N элементов:

program CalculateProduct;
var
A: array[1..100] of integer;
N, i: integer;
product: integer;
begin
product := 1;
writeln('Введите количество элементов в массиве: ');
readln(N);
writeln('Введите элементы массива A: ');
for i := 1 to N do
readln(A[i]);
for i := 1 to N do
begin
if A[i] > 0 then
product := product * A[i];
end;
writeln('Произведение положительных чисел в массиве A: ', product);
end.

2) Программа вычисления суммы элементов от первого отрицательного и до конца:

program CalculateSum;
var
A: array[1..100] of integer;
N, i, sum: integer;
indexNeg: integer;
begin
sum := 0;
indexNeg := 0;
writeln('Введите количество элементов в массиве: ');
readln(N);
writeln('Введите элементы массива A: ');
for i := 1 to N do
readln(A[i]);
for i := 1 to N do
begin
if A[i] < 0 then
begin
indexNeg := i;
break;
end;
end;
if indexNeg <> 0 then
begin
for i := indexNeg to N do
sum := sum + A[i];
writeln('Сумма элементов от первого отрицательного числа до конца: ', sum);
end
else
writeln('В массиве нет отрицательных чисел.');
end.