Найти сумму элементов массива. массив состоит из 20 элементов. элементы массива целые числа от -20 до 20.

Function Sum(m: myarray): Integer
Var    i,    s   : integer
sum:=0
For i:=1  To n do
(к уже найденной сумме первых (i-1) элементов прибавляем i-ый элемент)
s:=s+m[i];
sum:=s;
End; 

Это все что я помню...