1)составьте программу вычисления в массиве а, содержащего - вопрос №16411131 от Aldatik 07.04.2020 23:00

Question

Информатика: 1)составьте программу вычисления в массиве а, содержащего n элементов, произведения положительных чисел. pascal 2)составьте программу вычисления суммы элементов от первого отрицательного и до конца. pascal

Aldatik · 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.