Дан одномерный массив а размер массива 10 найти сумму всех элементов массива

Question

Информатика

Евстахий

25 сентября, 00:24

Дан одномерный массив а размер массива 10 найти сумму всех элементов массива

+2

Ответы (1)

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

Лизуня · Answer 1

Var i, sum:integer; a:array[1 ... 10] of integer;

begin;

for i:=1 to 10 do readln (a[i]) ; next i;

sum:=0;

for i:=1 to 10 do sum:=sum+a[i]; next i;

writeln ('Сумма элементов = ', sum) ;

end.