Сформировать массив из 10 случайных целых чисел из интервала от -

var
   i, sum : integer;                      // объявляем переменные целочисленного типа.
   arr : array [1..10] of integer;   // объявляем массив.
Begin
  for i := 1 to 10 do         // начало цикла.
    begin
       arr[i] := random(-5, 5); // заполняем массив случайными числами из диапазона -5; 5.
       write(arr[i] + );          // вывод на экран в одну строчку элементов массива
          if (arr[i] gt; 0) then   // проверка является ли текущий элемент положительным.
             sum := sum + arr[i]; // подсчет суммы положительных элементов.
    end;
      writeln; // переход на последующую строчку.
      writeln (Сумма положительных элементов массива равна: , sum); // вывод на экран строчки.
End.