program brainly;
var
  i, summ :integer;
  arr :array [1..30] of integer;
  begin
  randomize();
  for i := 1 to 30 do
    arr[i] := random(50);
  for i := 1 to 30 do
    summ += arr[i];
  Write('Сумма элементов массива: ', summ);
end.