Информатика. Найдите произведение всех элементов массива и количество чётных элементов?

Question

1. Найдите произведение всех элементов и количество чётных элементов
То, что дано:
P:=1;
for i:=1 to n do
P:=P*a[i];

2. Удвоить все положительные элементы массива и поменять знак у остальных (можно связать с первым заданием)

То, что дано:
for i:=1 to n do;
if a[i]0 then
a[i]:=a[i]*2
else a[i]:=-a[i];

Я совсем в этом не разбираюсь, помогите. Пожалуйста.

Заране спасибо.

Answer 1

При чем здесь Категория вопросов Техника? Вы ошиблись. Все Уроки- в Образование или сюда Уважаемый Ученик ! Вы невнимательны и видно, что появились на Ответах в Первый раз, потому что свой не технический Вопрос разместили по ошибке в Категории Техника. За это можете долго ждать правильный Ответ, а скоре всего не получить его никогда. Ну все подряд обращаются в Технику потому, что Технари, наверное, самые умные, разносторонне образованые. Я так думаю.

Answer 2

Код из первой задачи, в общем и целом, именно проходит по массиву и получает произведение всех его элементов в переменной P.
Остается только добавить в цикл проверку на четность и счетчик.

if (a[i] mod 2) = 0 then count := count + 1;

Иссесна, переменную count предварительно объявить и проинициализировать нулем.