Var sum,pr,i:integer; Begin pr:=1; for i:=-5 to 5 do begin if (i>0) then pr:=pr*i else sum:=sum i; end; Writeln('Сумма отрицательных чисел = ',sum); Writeln(''Произведение положительных чисел = ',pr); End.
более месяца назад
Ваш ответ:
Вы можете из нескольких рисунков создать анимацию (или целый мультфильм!). Для этого нарисуйте несколько последовательных кадров
и нажмите кнопку Просмотр анимации.
