Вопрос, который вызвал трудности

Дан массив из 5 чисел,имя массива х,вычислить сумму элементов массива,произведение и найти частное от деления произведения на сумму.На экран вывести результаты(сумму,произведение и частное).Помогите пожалуйста,срочно!

Ответ экспертов Учись.Ru

Чтобы дать полноценный ответ, был привлечён специалист, который хорошо разбирается в теме «Информатика». Ваш вопрос звучал так:

Дан массив из 5 чисел,имя массива х,вычислить сумму элементов массива,произведение и найти частное от деления произведения на сумму.На экран вывести результаты(сумму,произведение и частное).Помогите пожалуйста,срочно!

После обсуждения с другими специалистами сервиса мы пришли к выводу, что правильный ответ на ваш вопрос будет звучать следующим образом:

Var x:array[1..5] of integer;
an:real;
pr,sum,i:integer;
begin;
pr:=1;
for i:=1 to 5 do
readln(x[i]);
for i:=1 to 5 do
sum:=sum+x[i];
for i:=1 to 5 do
pr:=pr*x[i];
an:=pr/sum;
writeln('Сумма:',sum);
writeln('Произведение:',pr);
writeln('Частное:',an);
end.