Помогите пожалуйста срочно!!! 1. Даны N чисел. найдите произведение четных и сумму...

Question

Помогите пожалуйста срочно!!!
1. Даны N чисел. найдите произведение четных и сумму нечетных. решить с помощью паскаля.
2. Даны N чисел. Если кол-во положительных и кол-во отрицательных. Сравнить результаты.

Comments

Что за вторая задача? "Если кол-во положительных и кол-во отрицательных"? Прочитай хоть.

Answer 1

Var a, n, ch, nch, i:Integer;
begin
write("N: ");
readln(n);
ch:=1;
nch:=0;
for i:=1 to n do
 begin
  read(x);
  if x mod 2=0
   ch:=ch*x;
  else
   nch:=nch+x;
 end;
if ch=1
 ch:=0;
writeln("Произведение чётных: ", ch, "; сумма нечётных: ", nch, ".");
end.

var i, n, o, p, x:Integer;
begin
write("N: ");
readln(n);
p:=0;
o:=0;
for i:=1 to n do
 begin
  read(x);
  if x>0
   inc(p);
  if x<0<br>   inc(o);
 end;
write("Кол-во положительных чисел: ", p, "; кол-во отрицательных чисел: ", o, ". Разница: ", abs(p-o));
end.

Comments

это какое задание?

---

Первое.

---

А второе ?

---

Прочитай условие второй задачи, это набор слов. Внимательнее переписывай, решу.

---

2. Даны N чисел. Найдите кол-во положительных и кол-во отрицательных. Сравнить результаты.

---

Дополнил.

---

Спасибо огромное тебе, очень помог!!!