ТЕМА: Циклические алгоритмы. написание программ с использованием циклических конструкций FOR..TO..DO, WHILE..DO, и REPEAT..UNTIL
написать программу, использую любую циклическую структуру:
Дана последовательность N чисел. Составить программу определения произведения отрицательных чисел последовательности.
Для for. (mass - заранее заданная последовательность из N чисел)
program abs:
var i,a,s,m:integer;
const N;
begin
s:=1
for i:=1 to N do
begin
if mass<0
s:=s*mass;
end;
end,
Для while
program abs:
var i,a,s,m:integer;
const N;
begin
i:=1;
s:=1;
while i
s:=s*mass;
i:=i+1;
end;
end,
Для repeat
program abs:
var i,a,s,m:integer;
const N;
begin
s:=1;
i:=1;
repeat
begin
if mass<0
s:=s*mass;
i:=i+1;
until i
⇢