1)составьте программу вычисления в массиве А, содержащего N элементов, произведения положительных чисел. Pascal 2)составьте программу вычисления суммы элементов от первого отрицательного и до конца. Pascal

Question

1)составьте программу вычисления в массиве А, содержащего N элементов, произведения положительных чисел. Pascal 2)составьте программу вычисления суммы элементов от первого отрицательного и до конца. Pascal

Гость

Ответ(ы) на вопрос:

Accepted Answer

program massiv1; uses CRT; var i,N,P:integer; a:array [1..N] of integer; begin P:=1; read(N); for i:=1 to N do begin read a[i]; end; for i:=1 to N do begin if a[i] >o then P:=P*a[i]; end; write(P); readkey; end.