Вмассиве хранится информации о стоимости каждой из 60 книг. определить количество самых дешёвых книг.

uses crt; var i,min,s: integer; a: array[1..60] of integer; begins: =0; for i: =1 to 60 do a[i]: =random(35)+1; min: =a[1];

for i: =1 to 60 do if min > a[i] then min: =a[i]; for i: =1 to 60 do if a[i] = min then inc(s);

writeln(s,' books for price = ',min,' ru.'); end.

Перед созданием анимации бывает полезно понять следующие термины animate: рисование в  рабочей области слои временной шкалы и порядок наложения объектов в одном или нескольких слоях перемещение и преобразование объектов в  рабочей области  и в  инспекторе свойств использование  временной шкалы, включая время жизни объекта и выбор объектов в определенные моменты времени. основы изложены в разделе  кадры и ключевые кадры. символы и свойства символов. к анимируемым типам символов относятся фрагменты роликов, кнопки и графика. анимацию движения также можно применить к тексту. вложенные символы. экземпляры символов можно вкладывать в другие символы. необязательно: редактирование кривой безье с использованием инструментоввыделение  и  спецвыделение. эти инструменты можно использовать для редактирования траекторий движения. дополнительные сведения см. в разделередактирование анимации движения с редактора движения.

1) x: =1; while x< 10 do x: =x+3; x: =x+1;   x=1+3=4x=4+3=7x=7+3=10 (10=10)x=10+1=11 (11> 10)x=112) x: =1; while x< 10 do begin x: =x+3; x: =x+1; end;   x=5          5< 10 x=9          9< 10 x=13        13> 10  x=13 3) x: =0; for y: =1 to 9 do x: =x+1;   x=1      y=1x=2      y=2x=3      y=3x=4      y=4x=5      y=5x=6      y=6x=7      y=7x=8      y=8x=9      y=9x=94) x: =1; for y: =1 to 5 do x: =x*y; x=1            y=1x=2            y=2x=6            y=3x=24          y=4x=120      y=5x=120