Предмет: Информатика,
автор: tamilazhakupova
С клавиатуры вводится число N, а затем N чисел. Найти произведение отрицательных.
Ответы
Автор ответа:
0
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.
Похожие вопросы
Предмет: Геометрия,
автор: brohelp23
Предмет: Русский язык,
автор: Katerina8268
Предмет: Информатика,
автор: zekakoh651
Предмет: Обществознание,
автор: vppod2
Предмет: История,
автор: про100настя3