Дан массив из 100 целых чисел и найти сумму элементов массива

Question

Информатика

Рената

25 мая, 22:53

Дан массив из 100 целых чисел и найти сумму элементов массива

+2

Ответы (1)

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

Еля · Answer 1

Var

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

i, sum : integer;

begin

for i : = 1 to 100 do read (a[i]) ;

sum : = 0;

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

write (sum) ;

end.