Задачи на массивы. II тип "Нахождение суммы и произведения элементов массива"

Дорогие 9-классники!
На уроке мы с вами разобрали еще один тип задач на обработку элементов массива - II тип "Нахождение суммы и произведения элементов массива".
Изучите внимательно усовершенствованную программу, где ввод и обработка элементов массива осуществляются в одном цикле, протестируйте ее в среде программирования и решите домашние задачи.
Пример
Дан одномерный массив A[10]. Написать программу, которая будет находить произведение элементов массива, кратных числу 7.

Решение.
Program Proizvedenie;
var A: array [1 . . 10] of integer; i, P: integer;
begin
       P: = 1;
       for i: =1 to 10 do
              begin
                     write (‘введите A[’, i, ‘]=’, A[i]);
                     readln (A[i]);
                     if A[i] mod 7 = 0 then P: = P * A[i];
              end;
write (‘Произведение элементов массива, кратных числу 7 =’, P);
end.

Итак, домашние задачи:
Задача 1
Дан одномерный массив A[10]. Написать программу, которая будет находить сумму элементов массива, кратных числу 3.

Задача 2
Дан одномерный массив A[10]. Написать программу, которая будет находить произведение отрицательных элементов массива, стоящих на нечетных местах.

Желаю удачи!