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

vara:array[1..10] of integer;i,s:integer;begins:=0;for i:=1 to 10 dobegina[i]:=random(10)-5;if a[i]>0 thens:=s+a[i];write(a[i],' ');end;writeln;writeln('Сумма пол.= ',s);end.