Массивы

[Angela)]

Найти сумму элементов массива a заданным случайным образом

к этой задаче:
1) вычислить среднее арифметическое элементов массивов
2) найти произведение элементов стоящих на четных позициях

[kangreon]

var
   a: array[1..10] of real;
   i, l: integer;
   Sum, Sr, Pr: real;
   
procedure RandomArray;
var
  i: integer;
begin
  Randomize;
  for i := 1 to 10 do
    a[i] := Random(10);
end;

begin
  WriteLn('Заполнение массива');
  RandomArray;

  Sum := 0;
  pr := 1;
  for i := 1 to 10 do
  begin
    Sum := Sum + a[i];
    if i mod 2 = 0 then
      pr := pr * a[i];
  end;
  Sr := Sum / 10;
  
  WriteLn('Сумма: ',Sum);
  WriteLn('Среднее: ',Sr:0:2);
  WriteLn('Произведение: ',pr);
end.

В результате получается:
Сумма: 47
Среднее: 4.70
Произведение: 5670