Найти сумму элементов массива. Массив состоит из 20 элементов. Элементы массива целые числа от -20 до 20.
Найти сумму элементов массива. Массив состоит из 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;
Это все что я помню...
Не нашли ответ?
Похожие вопросы