Объявить массив из 10 элементов разделе констант. определить их значение случайными числами от -5 до 75. Найти сумму положительных элементов.

спасибо большое!

Синюю спасибо лучше

constn=10;var i,sum:integer;mass:array[1..n] of integer;beginfor i:=1 to n dobeginmass[i]:=random(80)-5;write('mass[',i,']= ',mass[i]);writeln;if mass[i]>0 then sum:=sum+mass[i];end;writeln('Сумма положительных элементов массива равна ',sum);end.