Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

В массиве хранится информации о стоимости каждой из 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.