Ввести с клавиатуры массив из 5 элементов,найти сумму и произведение элементов этого...

Question

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

Comments

нужно найти и среднее арифметическое этих чисел?

Answer 1

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.