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

uses crt;

var i, min, s:integer;

a:array[1 ... 60] of integer;

begin

s:=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.