Дан целочисленный двумерный массив размерности n ** m. Вывести его элементы индексы...

Question

Дан целочисленный двумерный массив размерности n на m. Вывести его элементы индексы которых является степенями двойки(1,2,4,6,8,16......). Помогите пожалуйста!! Желательно подробно...

Answer 1

Var A:array[1..100] of integer;

   i,n:integer;

Begin

   write('Введите n: ');readln(n);

   For i:=1 to n do

    Begin

     A[i]:=random(11)-5;

     write(A[i]:3);

    End;

   writeln;

   writeln('Элементы у которых индексы являются степенями 2-ки');

   i:=1;

   While i

    Begin

     i:=i*2;

     if i

    End;

   readln;

End.