Question

найти произведение и сумму элементов одномерного массива, состоящего из n (n<100) элементов. Элементы вводятся с клавиатуры
На язике поскаля пожалуйста

Answer 1

program Random_n;

var n, i, p, s: integer;

   a: array[1..100] of integer;

begin

p:=1;

s:=0;

write('Введите n:'); read(n);

for i:=1 to n do

 begin

     write('Введите элемент: '); readln(a[i]);

     p:=p*a[i];

     s:=s+a[i];

     end;

writeln('Произведение всех чисел: ',p);

writeln('Сумма всех чисел: ',s);

end.