// PascalABC.NET 3.0, сборка 1139 от 10.01.2016
begin
var a:array[1..20] of integer;
for var i:=1 to 20 do a[i]:=Random(-10,35);
Writeln('Исходный массив');
a.Println(',');
Writeln('Элементы с искомыми индексами');
var i:=1;
while i<20 do begin<br> WritelnFormat('a[{0}]={1}',i,a[i]);
i:=2*i
end
end.
Тестовое решение:
Исходный массив
-8,15,32,25,24,11,18,-2,20,17,15,4,9,30,-10,10,29,31,4,27
Элементы с искомыми индексами
a[1]=-8
a[2]=15
a[4]=25
a[8]=-2
a[16]=10