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

Код программы:

var n, a, i, sum, p:integer;

begin

 readln(n);

 if(n < 1) then

   writeln('Ошибка ввода')

 else begin

   sum:= 0;

   p:= 1;

   for i:=1 to n do begin

      readln(a);

      sum:= sum + a;

      p:= p *a;

   end;

   writeln(sum,' ',p);

 end;

end.