В массиве хранится информации о стоимости каждой из 60 книг. Определить количество самых дешёвых книг.
В массиве хранится информации о стоимости каждой из 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.
Не нашли ответ?
Похожие вопросы