Дана программка нахождения суммы всех частей массива. Поменять программку таким

Дана программа нахождения суммы всех элементов массива. Изменить программу таким образом,чтоб:
a) массив состоял из 15 частей вещественного типа;
b) значения частей массива обязаны изменяться в промежутке от 0 до 5;
c) в итоге исполненья программы должно быть найдено произведение всех частей массива, а не их сумма.
Program massiv;
const n=10;
Var a: array [1..n] of integer;
s,i integer;
Begin
writeln ( начальный массив.);
For i:= 1 to n do
begin
a [ i] := random (10);
write (a[i'] =', a[i], '');
end;
s:=0;
For i:= 1 to n do
s:= s+a[i];
Writeln ( сумма всех частей массива S=, s);
end.
2. Вводится одномерный массив размерностью 100 для обработки данной программой. Что делает программка?

Program pr;

Var х: array [1..100] of integer;

i, s: integer;

begin

s: =0;

for i:=l to 100 do

begin

readln (x [i]) ;

if i mod 2=0 then s:=s+x[i] ;

end;

writeln (s) ;

end.

Данная программка определяет:

1.сумму значений элементов массива с четными индексами;
2.сумму значений отрицательных частей;
3.количество элементов, значение которых четное число;
4.среднее арифметическое значений частей массива с четными индексами.