Пожалуйста, помогите написать программу в pascal

У Вас написано два раза нечетные...я полагаю, что нечетные заменить дробной частью, а четные - целой.

Основная мысль:

read(n);

for i := 1 to n do
begin
read(a[ i ]);
if odd(i) then a[ i ] := frac(a[ i ])
else a[ i ] := trunc(a[ i ];
end;