Решите задачу по информатике ** массивы пожалуйста. Определить сколько надо привезти...

Question

Решите задачу по информатике на массивы пожалуйста.
Определить сколько надо привезти денег из банка для N сотрудников , если известна зарплата каждого .

Answer 1

//PascalABC.NET
//Версия 3.3, сборка 1634 (14.02.2018)

begin
  Println('Нужно привезти: ',ReadArrInteger(ReadInteger('n->')).Sum,'д. ед.'); 
end.

Пример:
n-> 5
10 20 30 40 50
Нужно привезти:  150 д. ед.