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