Информатика( 9 класс) помогите срочно, пожалуйста. Даю 15б
1.найти произведение элементов массива, состоящее из n элементов, имеющих четное значение. элементы вводятся с помощью генератора случайных чисел.
2.найти среднее арифметическое элементов массива состоящих из 10 чисел, которые превышают число с. Элементы вводятся с клавиатуры.

1. var a: array[1..100] of Integer ;i,n,p: integer;beginp:=1;Writeln('Введите количество элементов в массиве');Readln(n);Writeln('Масив');for i:=1 to n dobegin a[i]:=Random(10);Write(a[i]:3);if a[i] mod 2 = 0 then p:=p*a[i];end;Writeln;Writeln('Произведение четных элементов массива = ', p);end.2. var a: array[1..10] of Integer ;i,c,sum,n: integer;beginWriteln('Введите число');Readln(c);for i:=1 to 10 dobegin Writeln('Введите ', i,' элемент массива');readln(a[i]);if a[i] > c then beginsum:=sum+a[i];n:=n+1;end;end;Writeln('Среднее арифмитическое элементов массива которые превышают ', c, ' = ',sum/n);end.