Дан целочисленный массив с количеством элементов n. На­печатать те его элементы, индексы...

Question

Дан целочисленный массив с количеством элементов n. На­печатать те его
элементы, индексы которых являются степенями двойки (1, 2, 4, 8, 16, ...).
Помогите написать на паскале,очень прошу

Answer 1

Есть способ поизящнее, но можно и так:

program test;
uses crt;
var
 arr:array[1..100] of integer;
 i:integer;
begin
 clrscr;
 for i:=1 to 100 do
 begin
  arr[i]:=random(100);
  write(i,': ');
  writeln(arr[i]);
 end;
 writeln;

 i:=2;
 while(i<100)do<br> begin
  write(i,': ');
  writeln(arr[i],' ');
  i:=i*2;
 end;
 readln;
end

Answer 2

ну что сказать хуйня полная