Найдите сумму массива с задаными свойствами B (15) S-? где B[i]>5

var

mas:array[1 ... 15]of integer;

i, s:integer;

begin

s:=0;

writeln ('Элементы массива:') ;

for i:=1 to 15 do

begin

mas[i]:=Random (10) + 5;

write (mas[i],' ') ;

s:=s+mas[i];

end;

writeln () ;

write ('Сумма элементов массива равна: ', s) ;

end.