Решите н.2, 3.даю 100баллов.заранее спасибо

Const
n=10;
var
a:array[1..n] of integer;
i:integer;
p:longint;
begin
Randomize;
Write('Массив: ');
p:=1;
for i:=1 to n do begin
    a[i]:=Random(10)+1;
    Write(a[i],' ');
    if a[i] mod 2<>0 then p:=p*a[i]
    end;
Writeln;
Writeln('Произведение нечетных: ',p)
end.

Пример
Массив: 9 10 2 4 7 1 3 2 5 7
Произведение нечетных: 6615

const
n=10;
var
a:array[1..n] of integer;
i,s:integer;
begin
Randomize;
Write('Массив: ');
s:=0;
for i:=1 to n do begin
    a[i]:=Random(10)+1;
    Write(a[i],' ');
    s:=s+a[i]
    end;
Writeln;
Writeln('Среднее арифметическое: ',s/n)
end.

Пример
Массив: 6 6 10 5 1 6 4 3 1 3
Среднее арифметическое: 4.5