Операция над массивом

[dragun4ik]

как заменить все отрицательные элементы массива находящиеся на нечетных позициях в одномерном массиве на 1 и вывести на экран новый массив.
Я чет попробывал сам решить но у ваще ниче не получается в итоге написал только вот что:
Program p4;
uses crt;
Var
i:integer;
a:array[1..10] of integer;
begin
clrscr;
read(n);
for i:=1 to n do read(a[i]);

[Ushka1]

после read(n);

for i:=1 to n do begin 
    read(a[i]);
    if a[i] < 0 and odd(i) then 
         a[i] = 1
end;
for i:=1 to n do 
   write( a[i],'   ' );
end.

[RUSt88]

листаем учебники...

[dragun4ik]

а что такое odd(i)?
какаято ошибка 26(type mismatch) на then курсор показывает

[val_nnm]

возми выражение a[i] < 0 в скобки. И ещё незабудь добавить : в строку a[i] = 1 чтобы получилось a[i] := 1

а вообще odd(i) возвращает true если i - нечётное. и false если i - чётное.

[dragun4ik]

она не работает?????? почему объясните(не выводит массив который мне нужно получить из заданного путем замены отрицательных элементов заданного массива на единицу)или че не верно написано
Program p4;
uses crt;
Var
i,n:integer;
a:array[1..10] of integer;
begin
clrscr;
read(n);
for i:=1 to n do begin
read(a[i]);
if(a[i] < 0) and odd(i) then
a[i]:= 1;
end;
for i:=1 to n do
write(a[i],' ');
read;
end.
я так понимаю что что мы записали только одну половину массива который должен получится, вторая половина остается неизменной-и её надо переписывать или нет?
у меня на экран выводит ва какуюто чуш

[val_nnm]

Можно по конкретнее в чём проблемма?
Потомучто у меня программа нормально работает. Приведи пример что вводиш? Что получаеш? Что должно получится?

Единственное что приходит в голову, это то что на современных компьютеррах могут быть проблеммы с модулем CRT.
Попробуй убрать строчки "uses crt;" и "clrscr;"

[Namolem]

. . .

[dragun4ik]

мне надо чтобы программа меняла отрицательные элементы массива находящиеся на нечетных позициях на 1 а она выдает такойже массив без 1 элемента и не чего не меняя

[dragun4ik]

может как нибудь подругому можно написать программу