ТЕМА: ЦИКЛИЧЕСКИЕ АЛГОРИТМЫ; ДАНЫ ЧИСЛА ** ОТРЕЗКЕ ОТ -5 ДО 5. НАЙТИ СУММУ ОТРИЦАТЕЛЬНЫХ...

Question

ТЕМА: ЦИКЛИЧЕСКИЕ АЛГОРИТМЫ; ДАНЫ ЧИСЛА НА ОТРЕЗКЕ ОТ -5 ДО 5. НАЙТИ СУММУ ОТРИЦАТЕЛЬНЫХ ЧИСЕЛ ПРОИЗВЕДЕНИЕ ПОЛОЖИТЕЛЬНЫХ ЧИСЕЛ ДАННОГО ОТРЕЗКА.

Comments

Зачем писать на капс локе? На такие вопросы даже отвечать не охото. Более приятно читать и отвечать на вопросы, которые написаны грамотно и без капса

---

А какая разница? Скажи лучше что незнаешь? как решать?

---

разница в том, что никто не будет такое решать, обычно на капс локе пишут неадекваты и спамеры

---

Ну мне как видишь помогли как бы я не писал, главное что текст понятен читающим.

---

Ха это ты спасибо))

---

Не думаю, что главное, чтобы текст был понятен, главное чтобы его было приятно читать

Answer 1

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.