Question

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

Answer 1

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

Answer 2

Пожалуйста