Question

Найдите сумму элементов одномерного массива. Размер произвольный .
Напишите программу В Паскале​

Answer 1

// PascalABC.NET

begin

 var n := ReadInteger('Число элементов массива:');

 var a := ReadArrReal('Введите элементы массива:', n);

 Print('Сумма равна', a.Sum)

end.