Question

Дано несколько чисел. Вычислите их сумму. Сначала вводите количество N, затем вводится ровно N целых чисел. Язык программирования- Паскаль.

Answer 1

program Tim;

var a, b, c, i: integer;

begin

   write('Введите количество натуральных чисел ');

   readln(a);

   for i:=1 to a do begin

   readln(c);

   b+=c

   end;

   write('Ответ: ',b)

end.