В паскале. дан одномерный массив размером N, упорядочить элементы в нем по возрастанию
Нет комментариев
Ответы
Гость Const m=200;
var a: array[1..m] of integer;
i,j,n: integer;
begin
write('количество элементов массива: ');
readln(n);
randomize;
write('массив: ');
for i:=1 to n do
begin
a[i]:=random(40);
write(a[i],' ');
end;
writeln;
write('отсортированный массив: ');
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]>a[j] then swap(a[i],a[j]);
for i:=1 to n do write(a[i],' ');
end.
количество элементов массива: 10
массив: 32 2 10 22 2 13 25 6 15 6
отсортированный массив: 2 2 6 6 10 13 15 22 25 32
Нет комментариев
Похожие вопросы
Информатика
Решите. Три задания. Срочно!!!...
Информатика
Массив из 10 элементов заполнить с клавиатуры. Вывести на экран в строчку через пробел....
Информатика
Помогите пожалуйста , срочно надо...
Список предметов
