Опубликовано 12.06.2017 по предмету Информатика от Гость >> <<

Дан массив из 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.