1)составьте программу вычисления в массиве А, содержащего N элементов, произведения положительных чисел. Pascal
2)составьте программу вычисления суммы элементов от первого отрицательного и до конца. Pascal
More Questions From This User See All
1)составьте программу вычисления в массиве А, содержащего N элементов, произведения положительных чисел. Pascal
2)составьте программу вычисления суммы элементов от первого отрицательного и до конца. Pascal
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
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.