Предмет: Информатика,
автор: Taskmaster
1)составьте программу вычисления в массиве А, содержащего N элементов, произведения положительных чисел. Pascal
2)составьте программу вычисления суммы элементов от первого отрицательного и до конца. Pascal
Ответы
Автор ответа:
0
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.
Похожие вопросы
Предмет: Биология,
автор: kser16918
Предмет: Английский язык,
автор: rus4kovadaria4
Предмет: Музыка,
автор: dyakovakristya
Предмет: Геометрия,
автор: Аноним