Question

Вычислить сумму всех элементов массива. x i = x 1 ...... x 10 Помогите :)

Answer 1

// PascalABC.NET

begin

 var x := ReadArrInteger(10);

 x.Sum.Print

end.

Answer 2

Ответ:

Или если вдруг предыдущий ответ чем-то не угодил:

• var
• x: array[1..10] of integer;
• sum: integer;  
• begin
• for var i := 1 to 10 do read(x[i]);
• for var i := 1 to 10 do sum := sum + x[i];
• write(sum);
• end.

Пример работы: