Var s,i : integer; z: array [1..20] of integer; Beginfor i:= 1 to 11 do Read (z[i]);s:=1; for i:= 1 to 11 do if z[i]<0 then s:= s*z[i]; Write('symma', s); end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
