.Помогите составить программу ** паскале:) Для десяти чисел введенных с клавиатуры все...

Question

.Помогите составить программу на паскале:)
Для десяти чисел введенных с клавиатуры все отрицательные сложить а положительные умножить

Comments

а если число ровно нулю?

---

Я не знаю:D я сам в этом не разбираюсь

Answer 1

Var a,b,c,d:integer;
beginwriteln('введите десять чисел');
readln(a);
b:=1;
d:=0;
for c:=2 to 10 do
begin
readln(a);
if (a > 0) then b:=b*a;
if (a < 0) then d:=d+a;
end;
writeln('положительные ',b);
writeln('отрицательные ',d)
end.

Comments

Первое число не обрабатывается

---

var a,b,c,d:integer;
begin
writeln('введите 10 чисел');
readln(a);
b:=1;
d:=0;
c:=0;
while (c<>9) do
begin

c:=c+1;

if (a > 0) then b:=b*a;
readln(a);
if (a < 0) then d:=d+a;

end;
writeln('положительные ',b);
writeln('отрицательные ',d)
end.

---

а вот так проверяет

---

и всё работает, автор приношу извинение за первую ошибку

---

Спасибо огромное ! Выручили:3

Answer 2

Const
  N = 10;

var
  x, i, minus, plus:integer;

begin
  plus:=-1;
  minus:=0;
  for i:=1 to N do
  begin
    readln(x);
    if x<0 then<br>      minus:=minus+x;
    if x>0 then
      if plus = -1 then      
        plus:=x
      else
        plus:=plus*x;
  end;
  writeln('Сумма отрицательных чисел: ', minus);
  if plus = -1 then
    writeln('Положительных чисел нет')
  else
   writeln('Произведение положительных чисел:', plus);
end.