Сумма элементов массива, имеющих четные номера.

[Андрей.12]

var a:array[-5..10] of integer;
i,s,max,min,k:integer;
begin
for i:=1 to 4 do   begin
write('a[',i,']=');
readln(a[i]);
end;
s:=0;
for i:=1 to 4 do begin
if (i div 2=0) then
s:=s+a[i];
end;
write(s);
readln;
end.

исправте плиз меня

[Disel]

Зачем массив создовать от -5, если всеравно заполняете от 1?

Вот мой вариант:

Program a1;
Var a:array [1..10] of integer;
    i,s:integer;
BEGIN
 for i:=1 to 10 do
  begin
   write('a=[',i,']');
   readln(a[i]);
  end;

  s:=0;

  for i:=1 to 10 do
   if i mod 2= 0 then
    s:=s+a[i];

    writeln(s);
    readln;
END.