Question

решите номер 5,50 баллов​

Answer 1

const m=100;
var
a: array[1..m] of integer;
p,sr,i:integer;
sum,n: real; {sum – сумма всех чисел, р – произведение, sr – среднее арифмитическое, n – количество элементов массива}
begin
readln(n);
for i:=1 to n do readln(a[i]);
sum:=0; p:=1;
for i:=1 to n do begin
sum:=a[i]+sum;
p:=p*a[i];
end;
sr:=sum/n;
writeln(p, ' ', sum, ' ', sr);
end.

Answer 2

===== PascalABC.NET =====

begin

 var n := ReadInteger('n=');

 var a := ArrRandom(n, -50, 99);

 a.Println;

 var (s, p) := (0, BigInteger.One);

 for var i := 0 to a.High do

 begin

   s += a[i];

   p *= a[i]

 end;

 Println('Сумма', s, '  произведение', p,

     '  среднее', s / a.Length)

end.