Напишите программу, которая вводит натуральное число N , затем – N целых чисел, и вычисляет их сумму и произведение.
Входные данные
Первая строка содержит число N ( N ≥ 1 ). В следующих N строках записаны целые числа, по одному в каждой строке.
Выходные данные
Программа должна вывести в одной строке сумму и произведение введённых чисел, разделив их пробелом.
Примеры
входные данные
5
1
2
3
4
5
выходные данные
15 120
ПАСКАЛЬ
Ответы
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.
Ответ:
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.