1. var a: array [1..15] of Integer ; sum,i:Integer; begin for i:=1 to 15 do begin Writeln('Введите значение ', i, ' элемента массива'); ReadLn(a[i]); if a[i]> 10 then sum:=sum+a[i]; end; Writeln('Сумма элементов, больших 10 = ',sum); end. 2. var a: array [1..12] of Integer ; p,i:Integer; begin p:=1; for i:=1 to 12 do begin Writeln('Введите значение ', i, ' элемента массива'); ReadLn(a[i]); if a[i]> 5 then p:=p*a[i]; end; Writeln('Произведение элементов, больших 5 = ',p); end.