Question

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

Answer 1

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; 


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