Помогите решить задачу

Найти сумму элементов одномерного массива. Размер произвольный. Элементы вводятся с клавиатуры.

Question

Информатика

Виталя

29 марта, 16:56

Помогите решить задачу

Найти сумму элементов одномерного массива. Размер произвольный. Элементы вводятся с клавиатуры.

+3

Ответы (1)

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

Арина · Answer 1

Var

ar:array[1 ... 2000] of integer;

i, s, sum:integer;

begin

readln (s) ;

sum:=0;

for i:=1 to s do begin

read (ar[i]) ;

sim:=sum+ar[i];

end;

writeln (sum) ;

end.

Помогите решить задачуНайти сумму элементов одномерного массива. Размер произвольный. Элементы вводятся с клавиатуры.

Помогите решить задачу

Найти сумму элементов одномерного массива. Размер произвольный. Элементы вводятся с клавиатуры.