Question

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

Answer 1

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.