Помогите нужно по паскалю написать 2. Практическая часть по программированию: ...

Question

Помогите нужно по паскалю написать
2. Практическая часть по программированию:

"Практическая часть по программированию предполагает решение 2 задач:
на тип INTEGER и на тип CHAR (другие типы использовать нельзя!!!)."

Вводится 10 чисел. Найти сумму четных чисел и произведение нечетных

Answer 1

// PascalABC.NET 3.2, сборка 1473 от 08.06.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var (s,p):=(0,1);
  var m:integer;
  for var i:=1 to 10 do begin
    Read(m);
    if m.IsEven then s+=m else p*=m
    end;
  Writeln('S=',s,', П=',p)
end.

Пример
12 -6 -11 8 4 7 -8 0 11 8
S=18, П=-847

Comments

var p,s:integer; i:char;
begin
s:=0;
p:=1;
for i:=1 to 10 do begin
if (i mod 2)=0 then s:=s+i
else p:=p*i;
end;
write('сумма=',s,'произведение=',p);
end.

---

может так ?

---

//Или ты имел в виду с - знаки

---

Можешь скинуть схему ?

---

Прости я понял что все верно я ошибся

---

Послушай а ты можеш решить еше 1 паскаль и в экселе 1 задание однотипные ответь поставлю макимум балов

---

var p,s:integer; i:char;
begin
s:=0;
p:=1;
for i:=1 to 10 do begin
if (i mod 2)=0 then s:=s+i
else p:=p*i;
end;
write('сумма=',s,'произведение=',p);
end.

---

это тоже самое же