Ввести с клавиатуры массив из 5 элементов,найти сумму и произведение элементов этого массива.
Пример:
Введите пять чисел : 4,15,3,10,14
среднее арифметическое: 9,200

Program a;var sum,n,ymn,sred: real;i: integer;mas : array[1..5] of integer; begin  sum:=0;  ymn:=1;  writeln('Укажите пять чисел');    for i:=1 to 5 do       begin          read (mas[i]); sum:=mas[i]+sum;          ymn:=mas[i]*ymn;          sred:=sum/5;      end;writeln('Сумма элементов = ',sum,'  Произведение элементов = ',ymn,' Среднее арифметическое = ',sred);end.