Найти произведение элементов массива, имеющих нечетное значение.

Question

Найти произведение элементов массива, имеющих нечетное значение.

Answer 1

Var a: array [1..10] of integer;
k, i ,n: integer;
begin
k:=1;
n:=10;
for i:=1 to n do
readln(a[i]); //ручной ввод
for i:=1 to n do
if i mod 2 = 1 then 
k:=k*a[i];
writeln(k);
end.     

Comments

var обязательно писать?

---

конечно

---

час изменю код

---

хорошо...подожду)

---

всё

---

спасибо)