Филофей
5 год назад
С клавиатуры вводится число N, а затем N чисел. Найти произведение отрицательных.
ОТВЕТЫ
Tucker Frank
Oct 24, 2020
Program Ok;
var a,i,n,proiz:integer;
begin
readln(N);
proiz:=1;
for i:=1 to n do
begin
read(a);
if(a<0) then
proiz:=proiz*a;
end;
write(proiz);
end.
var a,i,n,proiz:integer;
begin
readln(N);
proiz:=1;
for i:=1 to n do
begin
read(a);
if(a<0) then
proiz:=proiz*a;
end;
write(proiz);
end.
840
Смежные вопросы:
