Question

имеется вещественный массив, состоящий из 9 элементов.найти сумму, среднее арифметическое и произведение всех элементов.

Answer 1

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.