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

Дан массив из 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.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы