В массиве хранится информация о стоимости каждой из 50 книг. Вывести на экран стоимости 10 самых дешевых книг.
10-11 класс
|
const n=50;
var
a:array[1..n] of integer;
m,i,j:integer;
begin
randomize;
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 можно и тут поменять . Как угодно)
Другие вопросы из категории
данн предложение. все его символы , стоящие на третьем, шестом, девятом и т.д местах , заменить на буквы "а"
символ;б)определяет позицию заданного слова;в)подсчитывает количество вхождений заданного символа.
Читайте также
2) ввести с клавиатуры массив из n элементов вывести на экран максимальный четный элемент и минимальный нечетный элемент
каждый его элемент был равен утроенному значению его порядкового номера (индекса). 3. Ввести массив с клавиатуры, найти и вывести сумму элементов массива. 4. Ввести массив с клавиатуры, подсчитать, сколько в нем положительных элементов, а сколько отрицательных. 5. В одномерном массиве подсчитать, сколько отрицательных элементов находится на четных местах и сколько положительных на нечетных. 6. Элементы массива вводятся с клавиатуры, заменить в нем все отрицательные элементы их квадратами, а положительные кубами. Вывести на экран исходный и новый массив. 7. Ввести массив с клавиатуры, найти и вывести на экран максимальный и минимальный элементы. 8. Написать программу, которая определяет есть ли в массиве элемент введенный пользователем, подсчитывает их количество и выводит номер первого найденного элемента.
элементами организовать путем ввода с клавиатуры.В одномерном массиве из N чисел вывести на экран отрицательные элементы и сообщите об их количестве.Пожалуйста,срочно надо.
2.Вывести на экран 10 строк, содержащие символ *, причем количество * в каждой строке должно быть равно номеру строки.
3.Пользователем вводится 2 целых числа. Вывести на экран сумму положительных четных чисел, находящихся в границах диапазона, указанного пользователем.
4. В результате работы программы формируется массив, состоящий из 10 элементов и заполненный случайными числами от 0 до 100. Вывести на экран этот же массив в порядке возрастания.
5.Вводится строка, содержащая буквы и цифры разного регистра (т.е. строчные и прописные буквы). В результате работы программы на экран выводится строка следующего вида: цифры в порядке возрастания, строчные буквы по алфавиту, прописные буквы по алфавиту.
экран с 20 по 50 в строку через пробел
2.для первыз десяти элементов найти среднее арифмитическое
3.вывести на экран только четные элементы с 1 по 10 элементы массива
4.найти сумму нечетныз значений с 20 по 50 элемент
5.найти количество элементов кратныз заданному числу,введёного с клавиатуры среди всез элементок линейного массива