Помогите пожалуйста прошу вас

Question

Помогите пожалуйста прошу вас

---

Comments

дано N произвольных чисел найти сумму положительных чисел в одну перемену и сумму отрицательных чисел в другую

---

цел

---

Числа (x) должны быть целыми или дробными?

---

а в итоге какая программа получится?

---

Согласно данной схеме x (число) вводиться 1 раз. Чтобы исправить надо от I:=I+1 вести к верхнему условию где I<=N.

---

я не знаю так на доске было написано либо учительницы ошибку сделлаа

---

Какая-то схема сильно кривенькая. На какую задачу делалась?

Answer 1

program s2; var n,x,s,k,s2:integer; begin  write('Введите кол-во чисел: ');  readln(n);  writeln('Введите числа: ');  s := 0; s2 :=0; for k := 1 to n do  begin  write(k,': ');  readln(x);  if (x > 0) and (x mod 2 = 0) then  s := s + x;  elseif (x < 0) and (x mod 2 =0) then s2 := s2 + x end;  writeln('Cумма четных положительных = ',s);   writeln('Cумма четных отрицательных = ',s2);  readln end.

Comments

х*

---

там написано так

---

а что такое pх mod

---

ок

---

скачай Pasckal запусти и проверь

---

точно не уверен, но по идее должно работать, проверить не могу компилятора под рукой нет

---

аа

---

эм это код для компилятора как запустите он вам высветит что ввести

---

а какие цифры вводить

---

спс

Answer 2

Var n,i,s,p,x:integer;
begin
write('Введите количество чисел: ');
readln (n);
i:=1;
s:=0;
p:=0;
while i <= n do<br>begin
write('Введите число: ');
readln (x);
if x >= 0 then s:=s+x
else p:=p+x;
i:=i+1
end;
writeln ('Сумма положительных чисел S := ',s);
writeln ('Сумма отрицательных чисел P := ',p)
end.

Пример:
Введите количество чисел: 5
Введите чисело: 2
Введите чисело: -2
Введите чисело: 3
Введите чисело: -3
Введите чисело: 0
Cумма положительных чисел S := 5
Cумма отрицательных чисел P := -5

Если схема как на картинке

---