Как найти сумму всех элементов в массиве array

Question

Информатика

Поля

24 августа, 12:15

Как найти сумму всех элементов в массиве array

+4

Ответы (1)

Знаете ответ на вопрос?

Аникей · Answer 1

Var a:array[1 ... 100]of integer;

i, sum, n:integer;

begin

writeln ("vvedite kol-vo elementov") ;

read (n) ;

sum:=0;

for i:=1 to n do

read (a[i]) ;

for i:=1 to n do

sum:=sum+a[i];

writeln ("summa vseh elementov = ", sum) ;

end.