Подговьте доклад о различии между Интернет-телефонией и мобиль-
ными Интернетом

297

455

Посмотреть ответы 1

Ответы на вопрос:

Кейл

Информатика

4,8(33 оценок)

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.