Question

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

Answer 1

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.