Отыскать сумму частей массива А(10), значения которых лежат в промежутке от

// пример программы на языке Паскаль.

var
   i, sum: integer;                     // объявляем переменные целочисленного типа.
   arr: array [1..10] of integer;  // объявляем массив.
   s : string;                             // объявляем переменную строкового типа.
begin
   for i := 1 to 10 do                 // начало цикла.
      begin
        arr[i] := random(15, 75); // наполняем массив случайным числами из спектра 15; 75.
        s := s + arr[i]+ ;          // записываем массив в одну строку.
        sum := sum + arr[i];       // считаем сумму частей массива.
      end;
  writeln (Массив: , s);  // вывод на экран частей массива.
  writeln(Сумма элементов массива равна: , sum); // вывод на экран суммы элементов массива.
end.