Question

Паскаль АВС.NET задача !!!Барон Мюнхаузен выйдя на экологически чистую охоту , зарядил свое ружье косточками вишен. После того как он удачно попал между рога N оленям , в которых попало в соответствии k1 , k2 , ... ,kN косточек , у них на головах выросли замечательные молодые вишенки . Сколько новых саженцев смог подарить барон Мюнхаузен садоводам-исследователям?

Answer 1

begin

 var n := ReadInteger('Укажи число оленей:');

 var s := 0;

 Writeln('Вводи количество косточек, попавших в каждого оленя');

 for var i := 1 to n do

   s += ReadInteger;

 Writeln('Количество саженцев = ', s)

end.