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

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

Question

Информатика

Крестя

22 августа, 01:23

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

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

+3

Ответы (1)

Знаете ответ на вопрос?

Анфуса · Answer 1

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.