задача на одномерный массив Делфи

[Lexey92]

помогите написать код к задаче на массив, плиз)))))

Заполнить одномерный массив размера N так, чтобы каждый элемент с четным индексом был равен половине своего номера, а каждый элемент с нечетным индексом — 0.

[Mad_Cat]

for i:=1 to n do
if odd(i) then a[i]:=0
else a[i]:=i div 2;

[Lexey92]

а можно немножечко по подробнее)))

пожалуйста помогите)))

help me..........

[Nikita++]

Куда уже подробнее? Подробнее- это уже готовая программа

[Lexey92]

просто я именно до программы не могу дописать, не работает...((((

[Stilet]

не могу дописать

Показывай что написал )))

[Lexey92]

uses
SysUtils,
windows;
var
a: array [1..n] of Integer;
i: Integer;

begin
setconsolecp (1253);
setconsoleoutputcp (1251);


for i:=1 to n do
begin

if odd(i) then a[i]:=0
else a[i]:=i div 2;

writeln (' ',a[i]);
readln;

end;
{ TODO -oUser -cConsole Main : Insert code here }
end.

[Lexey92]

что тут не так, незнаю????))))