есть целочисленный массив из 20 эл-тов. нужно отсортировать массив по возрастанию эл-тов. числа любые.паскаль
5-9 класс
|
a:array[1..20] of integer;
x, i:integer;
begin
for i:=1 to 20 do
readln(a[i]);
for i:=1 to 20 do
if a[i]>a[i+1] then begin
x:=a[i]; a[i]:=a[i+1]; a[i+1]:=x; end;
for i:=1 to 20 do
writeln(a[i]);
readln;
end.
Другие вопросы из категории
трехзначное и делится либо на 7, либо на 11, то его разделить на цело на 11. В остальных случаях разделить число на 10. ( сделать с помощью программы Pascal) Заранее огромное спасибо))))
Читайте также
ести максимальное значение среди трехзначных элементов массива, делящихся на 4. Если в исходном массиве нет трехзначного элемента, который делится на 4, то вывести сообщение о том, что такого числа нет.
массива которые имеют четные значения и не делятся на 3
таких эл-тов нет.
рут тех, чей рост не менее 180 см. Опишите на русском языке или на одном из языков программирования алгоритм, который подсчитывает и выводит минимальный рост игрока баскетбольной команды. Гарантируется, что хотя бы один ученик играет в баскетбольной команде.Нужно паскаль
б)Напишите программу, которая массив из 20 элементов заполнит неповторяющимися целыми числами и выведет на экран элементы с нечетными индексами.