begin
  var arr: array of integer = new integer[30];
  for var i := 0 to arr.Length - 1 do arr[i] := Random(21) - 10;
  WriteLn('Исходный массив:', newLine, arr, newLine, 'Сумма положительных элементов массива: ', arr.Where(x -> x > 0).Sum);
end.