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

1

Ответы и объяснения

2013-11-24T08:43:27+00:00
Есть способ поизящнее, но можно и так:

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
 begin
  write(i,': ');
  writeln(arr[i],' ');
  i:=i*2;
 end;
 readln;
end