Question

Напишите программу, которая вводит натуральное число N , затем – N целых чисел, и вычисляет их сумму и произведение.
Входные данные
Первая строка содержит число N ( N ≥ 1 ). В следующих N строках записаны целые числа, по одному в каждой строке.

Выходные данные
Программа должна вывести в одной строке сумму и произведение введённых чисел, разделив их пробелом.

Примеры
входные данные
5
1
2
3
4
5
выходные данные
15 120


ПАСКАЛЬ

Answer 1

var

       a: array[1..10000] of Int64;

       n, i: Word;

       sum, m: Int64;

begin

       Read (n);

       m := 1;

       

       for i := 1 to n do

               Read (a[i]);

       

       sum := n * (n + 1) div 2;

       

       for i := 1 to n do

               m := m * a[i];

       

       Write (sum, ' ', m)

end.        

Answer 2

Ответ:

program z1;

var N,a,s,p,i: integer;

begin

readln (N);

s:=0;

p:=1;

for i:=1 to n do

begin

readln (a);

s:=s+a;

p:=p*a

end;

writeln(s,'   ',p);

end.

Объяснение:

Ввод N

Начальное значение s

Начальное значение p

Цикл для i от 1 до N

Действия в цикле (составной оператор):

1) Ввод числа a

2) Вычисление суммы

3) Вычисление произведения

Вывод s, p

При больших значениях введенных чисел, следует поменять тип переменной p, например, на real.