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

Question

Информатика

Сила

2 января, 14:08

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

+3

Ответы (1)

Знаете ответ?

Генаша · 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;

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