Question

Помогите, пожалуйста, решить задачу.
Найти сумму элементов массива. Кол-во элементов = 10. Сами элементы генерируются случайным образом на интервале [-50;50].

Answer 1

// PascalABC.NET 3.3, сборка 1633 от 10.02.2018
// Внимание! Если программа не работает, обновите версию!

begin
  ArrRandom(10,-50,50).Println.Sum.Println;
end.

Пример
31 19 1 -45 -14 -32 8 -46 46 -18
-50

Answer 2

Program n1;
var a: array[1..10] of integer;
sum,i: integer;
begin
write('массив: ');
sum:=0;
for i:=1 to 10 do
begin
a[i]:=random(101)-50;
write(a[i],' ');
sum:=sum+a[i];
end;
writeln;
write('сумма: ',sum);
end.