Question

№1 Дан целочисленный массив из 30 элементов. Элементы массива могут принимать значения от
–1000 до 1000 Напишите программу, которая находит и выводит среднее арифметическое всех
элементов массива, оканчивающихся цифрой 9 Гарантируется, что хотя бы один такой элемент в
массиве есть. Исходные данные объявлены так, как показано ниже. Запрещается использовать
переменные, не описанные ниже, но разрешается не использовать часть из них.
Паскаль
const N=30;
var a: array [1..N] of integer;
i, x, y: integer;
s: real;
begin
for i:=1 to N do readln(a[i]);
...
end.
№2 Дан целочисленный массив из 30 элементов. Элементы массива могут принимать значения от
0 до 1000 Напишите программу, которая находит и выводит произведение всех элементов
массива, имеющих нечётное значение.