Question

РЕШИТЬ НА PASCAL

Один из самых маленьких фруктов, не совсем привычный для нас и далеко не всем известный – Рамбутан. На дереве плоды рамбутана растут небольшими гроздьями. Посчитайте количество плодов на дереве, если известно, что там растет M гроздьев с разным количеством плодов.
Формат ввода:
M – количество гроздьев (M<=12)
a[1] – количество плодов, первая гроздь
а[2] – количество плодов, вторая гроздь
…
а[M] – количество плодов, M-ая гроздь

Пример ввода:
7
17
15
20
22
14
15
16
Формат вывода:
s – количество плодов на всем дереве
Пример вывода:
119

Answer 1

var

   M,s,i,a:integer;

begin

   s := 0;

   read(M);

   for i := 1 to M do

   begin

       read(a);

       s := s + a;

   end;

   writeln(s);

end.