Question

помогите, пожалуйста!

язык программирования Pascal

Заполнить массив целых чисел В [1..10] Найти сумму элементов массива

​

Answer 1

Ответ:

var B: array [1..10] of integer;

i,s:integer;

begin

 for i:=1 to 10 do

   readln(B[i]);

 for i:=1 to 10 do

   s:=s+B[i];

 writeln(s);

end.

Объяснение: