Дан массив целых чисел. Определить: 1) сумму всех элементов массива; 2) произведение всех элементов массива; (программа Паскаль)

Question

Дан массив целых чисел. Определить: 1) сумму всех элементов массива; 2) произведение всех элементов массива; 3) среднее арифметическое всех элементов массива.

Answer 1

program massiv ;
uses crt;
type mas=array[1..1000] of integer;
var i,s,n,p,k: integer;
    m:mas;
begin
randomize;
for i:=1 to 10 do
begin
m[i]:=random(45)+1;
write(m[i], '  ');
s:=S+m[i];
end;
writeln;
write( s);
end.   

program massiv ;
uses crt;
type mas=array[1..1000] of integer;
var i,s,n,p,k: integer;
    m:mas;
begin s:=1;
randomize;
for i:=1 to 10 do
begin
m[i]:=random(5)+1;
write(m[i], '  ');
s:=S*m[i];
end;
writeln;
write( s);
end.   

program massiv ;
uses crt;
type mas=array[1..1000] of integer;
var i,n,p,k: integer;
    m:mas; s:real;
begin s:=0;
randomize;
for i:=1 to 10 do
begin
m[i]:=random(10)+1;
write(m[i], '  ');
s:=S+m[i];
end;
writeln;
write( s/10);
end.