решите н.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 Произведение нечетных: 6615const  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