Решение задач на использованием процедур и функций

вывода значений массива;
правила программной обработки массивов.
Учащиеся должны уметь:
составлять типовые программы обработки массивов: заполнение массива, поиск и подсчет элементов, нахождение максимального и минимального значений, сортировки массива и др.

i: integer;
a: array [1..n] of integer;
begin
clrscr;
randomize;
writeln ('Исходный массив: ');
for i:=1 to n do
begin
a[i]:=random(10);
writeln ('a[',i,']=',a[i]);
end;
s:=0;
for i:=1 to n do
s:=s+a[i];
writeln ('Сумма всех элементов массива S=',s);
readln;
end.

2. Изменить программу таким образом, чтобы:
1) массив состоял из 15 элементов вещественного типа;
2) значения элементов массива должны меняться в интервале от 0 до 5;
3) в результате выполнения программы должно быть найдено произведение всех элементов массива, а не их сумма.