даны числа от -10 до 15. найти сумму положительных и производение

Даны числа от -10 до 15. отыскать сумму положительных и производение отрицательных. ПРОШУ ПОМОГИТЕ!!

Задать свой вопрос
Максим Шелопутин
Программкой?
2 ответа
Var a,b,n:integer;
begin
a:=1;
n:=-10;
while nlt;=15 do
begin
if nlt;0 then a:=a*n else b:=b+n;
n:=n+1;
end;
write (a:6,b:6);
end.
Kirjuha
Из программы получаем сумма положительных равна 120, творенье отрицательных равно 3628800
Положительные числа: 1+2+3+4+5+6+7+8+9+10+11+12+13+14+15=120
Отрицательные числа: -10-9-8-7-6-5-4-3-2-1= -55
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт