Вычислить сумму элементов массива, заполненного случайными числами из интервала [-50; 50]

const
  arrsize = 100;
 
var
  a: array [1..arrsize] of integer;
  
function getrandelement: integer;
begin
  getrandelement := random(-50, 50);
end;
 
procedure makerandarr;
var
  i: integer;
begin
  for i := 1 to arrsize do
    a[i] := getrandelement;
end;
 
function getsum: integer;
var
  s, i: integer;
begin
  for i := 1 to arrsize do
    s += a[i];
  getsum := s;
end;
 
begin
  makerandarr;
  writeln(getsum);
end.

Const n = 64; //Количество элементов массива
 
 var a: array[1..n]of ShortInt;
     s: Word;
 
 Begin
 
 For var i:= 1 to n do
  begin
   a[i]:= 50-Random(100);
   Write('a['+IntToStr(i)+'] = '+IntToStr(a[i]));
   WriteLn;
   s+=a[i];
  end;
  
  WriteLn('Сумма = '+IntToStr(s));
 
 end.

const
  arrsize = 100;
 
var
  a: array [1..arrsize] of integer;
  
function getrandelement: integer;
begin
  getrandelement := 50 - random(100);
end;
 
procedure makerandarr;
var
  i: integer;
begin
  for i := 1 to arrsize do
    a[i] := getrandelement;
end;
 
function getsum: integer;
var
  s, i: integer;
begin
  for i := 1 to arrsize do
    s += a[i];
  getsum := s;
end;
 
begin
  makerandarr;
  writeln(getsum);
end.

const
  arrsize = 100;
 
var
  a: array [1..arrsize] of integer;
  
function getrandelement: integer;
begin
  getrandelement := 50 - random(101);
end;
 
procedure makerandarr;
var
  i: integer;
begin
  for i := 1 to arrsize do
    a[i] := getrandelement;
end;
 
function getsum: integer;
var
  s, i: integer;
begin
  for i := 1 to arrsize do
    s += a[i];
  getsum := s;
end;
 
begin
  makerandarr;
  writeln(getsum);
end.