34

В массиве хранится информация о стоимости каждой из 50 книг. Вывести на экран…

13 марта 2023

В массиве хранится информация о стоимости каждой из 50 книг. Вывести на экран стоимости 10 самых дешевыхкниг.

категория: информатика



37

const n=50; vara: array[1… n] of integer; m,i,j: integer; beginrandomize; for i: =1 to n do begin a[i]: =random (3600)+300; write (i,'. ',a[i]); end; for j: =1 to n-1 do begin for i: =1 to n-1 do if a[i]>a[i+1] then begin m: =a[i]; a[i]: =a[i+1]; a[i+1]: =m; end; end; writeln; for i: =1 to 10 do writeln (i,') ',a[i]); end. То-что курсивом это организация ввода в массив цен. Если у вас другой способ то измените. 3600 это max цена, а 300 min можно и тут поменять. Как угодно)

Знаете ответ?


Есть интересный вопрос? Задайте его нашему сообществу, у нас наверняка найдется ответ!
Делитесь опытом и знаниями, зарабатывайте награды и репутацию, заводите новых интересных друзей!
Задавайте интересные вопросы, давайте качественные ответы и зарабатывайте деньги. Подробнее...