Вопрос пользователя:
Даны числа от 1 до n.найти сумму всех чисел.произведеие всех чисел и среднее арифметическое.
Помогите пожалуйста,прошу!
Илюха отвечает:
var n,i:byte;
p,s,r:real;
begin
s:=0;p:=1;
write(‘Введите n = ‘);
readln(n);
for i:=1 to n do begin
readln(r);
s:=s+r;
p:=p*r;
end;
writeln(‘Cумма всех чисел s = ‘,s:0:4);
writeln(‘Произведение всех чисел p = ‘,p:0:4);
writeln(‘Cреднее арифметическое = ‘,(s/n):0:4);
end.