массив с количеством элементов N. Напечатать те его элементы, индексы которых являются степенями двойки

[Маськ@]

1) Заменить, в массиве, первый отрицательный элемент нулём (ваще туплю, задача лёгкая, а у меня замуляются все отрицательные элементы, не могу понять где ошибка...);
2) Дан целочисленный массив с количеством элементов N. Напечатать те его элементы, индексы которых являются степенями двойки (то биш 1,2,4,8,16...) -> (честно, это ваще сил нет решить, последняя задача в к/р )

Плиз! прошу!!

[Викдон]

1)

for i:=1 to n do
  if mas[i]<0 then
   begin     
     mas[i]:=0;
     break;
   end;

2)

m:=1;
    for i:=1 to n do
      if (i=m) and (m<>1)then
        begin
           write(mas[i],' ');
           m:=m*m;
         end
       else if (i=m) and (m=1) then
          begin
           write(mas[i],' ');
           m:=2;
         end;

[Serge_Bliznykov]

Викдон - 1 - это тоже степень двойки ;-) нулевая... (смотри исходный текст задачи #1)
да и с m*m вы погорячились... например, 8-й элемент будет пропущен...

мой вариант:
2)

m:=1;
while m<=n do
begin
  Write(mas[m],' ');
  m:=m*2;
end;

[Викдон]

да уж с m*m погорячился, надо было m*2;

[Маськ@]

Пасябо, народ! вы супер!))