нахождение элеметов массива по формулам

[nexzis]

procedure TForm1.Button8Click(Sender: TObject);
var i:integer;
begin
label2.Caption:='';
for i:=1 to 22 do
begin
if i < (22/2) then
a[i]:= 1 + trunc(i/2);
if i >= (22/2) then
a[i]:=1 - trunc(i/2);

label2.Caption := label2.Caption+inttostr(a[i])+#13;
end;
end;


помогите пожалуйста как надо изменить программу(заменить trunc на что) что бы показывало дробные результаты а то выдаёт ошибку integer и extended

[Mad_Cat]

обьяви массив не как

array of integer

а как

array of double

и убери Trunc

а на остальные задачи где целые числа это не повлияет?

если нет div и mod то не должно

[nexzis]

а на остальные задачи где целые числа это не повлияет?

[nexzis]

и начинает руагться на inttostr

[Mad_Cat]

и начинает руагться на inttostr

замени на Floattostr

[nexzis]

спасибо, если будут вопросы напишу сюда ещё

[nexzis]

а вот вопросик нашёлся что означает запись #13 ?