Дан целочисленный массив с количеством элементов n. Напечатать те его
элементы, индексы которых являются степенями двойки (1, 2, 4, 8, 16, ...).
Помогите написать на паскале,очень прошу
элементы, индексы которых являются степенями двойки (1, 2, 4, 8, 16, ...).
Помогите написать на паскале,очень прошу
Answers & Comments
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