Решите н.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