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.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
