С клавиатуры вводится массив из m чисел. Найти сумму элементов массива.

Var m:integer;

var i:integer;

var mass:array of integer;

begin

write ('Razmernost masiva: ');

readln (m)

; mass:=new integer[m];

for i:=0 to m-1 do begin

write ('a[', i,']: ');

readln (mass[i]);

end;

var sum:integer;

sum:=0;

for i:=0 to m-1 do

sum + = mass[i];

writeln ('Summa vseh elementov massiva: ', sum)

end.