Из массив А получить массив В, удвоив все нечётные элементы удвоены ( на Pascal)

[KARTER]

Дана задача: Дан массив А из n действительных чисел: a1, …, an. Получить массив В, который отличается от исходного тем, что все нечетные элементы удвоены
У меня возникли проблемы при составлении программы!
То что я Сделал:

Program rop;
uses crt;
const n=5;
var a:array[1..5] of real; i:integer;
begin
for i:=1 to 5 do
begin
write(a , '[',i,']=');
readln(a[i]);
end;
end;
if a[i] div2=1
then b[i]:=2*a[i]
for i:=1 to n do
writeln(b,'[',i,'=',b[i]);
end;
readln;
end.

______________
1) Название темы по правилам форума должно адекватно отражать суть решаемой задачи/проблемы.
На первый раз я исправил.
В последующем, темы с подобным названием будут закрываться или удаляться,
а автор такой темы будет получать штрафные баллы.
Учтите это на будущее.

2) Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!


Модератор.

[Valio]

Чтото у тебя тут End'ов многовато. Проверь.
И зачем массив типа real? Вполне сгодится Integer;

if a[i] div2=1

В задании указано что: "нечетные элементы"

Поэтому надо проверить i на нечётность, а не значение в массиве.

Используй кнопку # для оформления кода.

И вот это (исправленое конечно):

f a[i] div2=1
 then b[i]:=2*a[i]

Надо ввести в цикл, тогджа когда ты заполняешь.