Вопрос пользователя:
имеется вещественный массив, состоящий из 9 элементов.найти сумму, среднее арифметическое и произведение всех элементов.
Илюха отвечает:
var a: array [1..9] of real;
s,p: real;
BEGIN
p:=1;
s:=0;
for i:= 1 to 9 do
begin
read(a[i]);
s:= s+a[i];
p:=p*a[i];
end;
writeln("Summa=",s);
writeln("Srednee arefmeticheskoe=",s/n);
writeln("Proizvedenie=",p);
END.