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

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