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

Настя5111111111 Настя5111111111    1   27.05.2019 06:00    15

Ответы
yakuninvitalii yakuninvitalii  23.06.2020 22:48
Есть поизящнее, но можно и так:

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
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика