вычислить сумму тех элементов массива A(10) числовые значения которых принадлежат полуинтервалу i<=A[10]<=i+1

program a1;<br />var i, S : integer;<br />a array [1....10] of integer;<br S:=0 />begin<br />for i:=1 to do 5;<br />i<=A[10]<=i+1;<br />writeln('a[i]=, ');<br />for i:=1 to 5 do if i<0 then S:=S+ a[i] writeln(S) end