Задание:
Дан целочисленный массив с количеством элементов 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
Знаете другой ответ?