Question

Задан массив a1, a2, …, an из целых чисел. Вычислите их сумму.

Answer 1

const nx =50;var n,sum,i:integer;R:Array[1..25] of integer;Beginwrite('Введите количество элементов n ');Read(n);for i:=1 to n do beginR[i]:= random(10)-5;write(R[i]:3);sum:= sum +R[i];end;writeln;write('Сумма всех чисел = ',sum)end.