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

Question

Информатика

Тима

21 мая, 23:18

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

+1

Ответы (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.