program polog; var i:byte; a:array[1..255] of single; prox:boolean; begin randomize; prox:= true; for i:=1 to 255 do a[i]:=random(254)-127; for i:=1 to 255 do if a[i]>0 then if prox then prox:=false else begin writeln(a[i],i); exit(или close не помню); end; end.
более месяца назад
Ваш ответ:
Вы можете из нескольких рисунков создать анимацию (или целый мультфильм!). Для этого нарисуйте несколько последовательных кадров
и нажмите кнопку Просмотр анимации.
