Сформировать массив из 10 случайных целых чисел из промежутка от - 5 до 5, вывеси элементы массива в строку черенз пробел, найти сумму всех положительных элементов.

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] > 0) then / / проверка является ли текущий элемент положительным.

sum : = sum + arr[i]; / / подсчет суммы положительных элементов.

end;

writeln; / / переход на следующую строку.

writeln ('Сумма положительных элементов массива равна: ', sum); / / вывод на экран строки.

End.