Программы, по которым работают компьютеры - это драйверы
Бочкарева Горохова1652
21.04.2023
Var mas: array of integer; min,kol ,j, i,n: integer; begin randomize; min: =0; kol: =0; write('n: ' ); readln(n); setlength(mas,length(mas)+n); ///динамический массив вы можете заменить на статический for i: = 0 to high(mas) do mas[i]: =random(50); min: =mas[0]; for j: =0 to high(mas) do//ищем минимальную ценну if min> mas[j] then min: =mas[j] ; for i: = 0 to high(mas) do if min=mas[i] then//ищем количество книг с минимальной ценой inc(kol); write('kolvo min ',kol); readln; end.