Сумма елементов массива паскаль

Question

Нужно найти сумму вводимых элементов массива, больших чем b (b=-3) 
 
Вот кое что сделал, не могу понять как не учитывать b. 
 
uses crt; 
var arr: array[1..15] of real; 
 sum: real; 
 i : integer; 
begin 
 clrscr; 
 writeln('Ukashite zna4enie vashih elementov '); 
 for i:=1 to 15 do 
 readln(arr); 
 
 sum:=0; 
 for i:=1 to 15 do 
 if arr>-3 then arr:=arr+0; 
 sum:=sum+arr; 
 writeln('Summa elementov',sum:10:2); 
 readkey; 
 
end.

Они указаны, просто абс не перенёс их. 
<img src="//content.foto.my.mail.ru/mail/kkk1886/_answers/i-2.jpg" >

Виктор Вашкулат · Accepted Answer

sum:=0; 
for i:=1 to 15 do 
if arr > -3 then sum:=sum+arr[ i ]; 
writeln('Summa elementov',sum:10:2); 
 
Вот так будет правильно. 
Если не учитывать, а просто найти всю сумму, то написать 
for i:=1 to 15 do sum:=sum+arr[ i ]; 
 
 Дмитрий, мэйлру считает элемент с индексом i как тэг курсива и убирает их всех) 
Давно б уже могли сделать тэг code =/

Миша Бабкин · Answer

...А индексы у элементов массива кто будет указывать? не просто arr, a arr[ i]

Anton · Answer

Я тебе на почту скинул полную прогу