1)составьте программу вычисления в массиве а, - вопрос №16402111 от lisacat2000 14.05.2021 06:59

Question

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

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