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

Question

Информатика

Виссарион

26 ноября, 00:49

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

+4

Ответы (1)

Знаете ответ на вопрос?

Зинаидка · 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.