Написать на Паскале программу

Question

Написать на Паскале программу нахождения суммы, произведения и среднего значения элементов массива, кол-во элементов ввести в программе.

Ольга Бибик · Accepted Answer

var i,j,n,p,s:integer; 
begin 
readln(n);p:=1;s:=0; 
for i:=1 to n do 
begin 
read(j);s:=s+j;p:=p*j; 
end; 
writeln(s,p,s/n); 
readln; 
end. 
это если массив не держать в памяти, а если с использованием массива в явном виде, то либо указатели, либо заведомо больший размер масива должен быть, если ттребуется кол-во ввести

Олеся Скворцова · Answer

s:=0; p:=1; 
for i:=1 to n do begin 
s:=s+a [ i ]; 
p:=p*a [ i ]; end; 
writeln('s= ',s,' p= ',p,' среднее значение= ', s/n:6:2); 
начало и конец пиши сама