Дан целочисленный массив с количеством элементов n. Напечатать те его элементы, индексы которых являются степенями двойки (1, 2, 4, 8, 16, ...).Помогите написать на паскале,очень прошу
Дан целочисленный массив с количеством элементов n. Напечатать те его
элементы, индексы которых являются степенями двойки (1, 2, 4, 8, 16, ...).
Помогите написать на паскале,очень прошу
Гость
Ответ(ы) на вопрос:
ГостьЕсть способ поизящнее, но можно и так:
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
Не нашли ответ?
Похожие вопросы