begin
var a := ArrRandom(20, -50, 50);
a.Println;
var b := a.Sum;
Println('Сумма элементов равна', b)
end.
begin
var a := ArrRandom(20, -50, 50);
a.Println;
var b := a.Sum;
Println('Сумма элементов равна', b)
end.
arr : Array[1..20] of Integer;
Begin
sumArr := 0;
for i := 1 to 20 do begin
sumArr := sumArr + arr[i];
end;
writeln('Sum ', sumArr);
End