const n=20; var a:array[1..n] of real; i:integer; amin:real; begin Randomize; Writeln('Элементы массива'); amin:=100; for i := 1 to n do begin a[i]:=50*Random-25; Write(a[i]:8:3); if (amin>a[i]) and (a[i]>0) then amin:=a[i] end; Writeln; Writeln('Минимальный среди положительных элемент: ',amin:0:3); end.
Решение достаточно простое. В самом деле, "Повтори 10" говорит нам о том, что будет нарисовано нечто из 10 одинаковых элементов. Что именно выполняется 10 раз? Поворот направо на 20 градусов, затем рисование прямой линии длиной 36 единиц и снова поворот направо, но уже на 40 градусов. Т.е. угол между прямыми составит 40+20=60 градусов. За 6 циклов будет нарисован правильный шестиугольник (6х60=360 градусов), а оставшиеся 4 шага пройдут по уже нарисованным линиям, т.е. 4 шага лишние. ответ: 3) правильный шестиугольник
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
