bezzubikkk
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.
Answers & Comments
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.
===== 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.