Решите н.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 2lt;gt;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