Склавиатуры вводится число n, а затем n чисел. найти произведение отрицательных.

belovomp belovomp    1   11.09.2019 22:20    0

Ответы
xxx5639 xxx5639  07.10.2020 08:31
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика