Написать прграмму которая вводит через коавиатуру кол во эоементов и эоементов массива вывести на экран массив отсортированный по возростаниб и по убыванию
Написать прграмму которая вводит через коавиатуру кол во эоементов и эоементов массива вывести на экран массив отсортированный по возростаниб и по убыванию
Гость
Ответ(ы) на вопрос:
Гость//Pascal ABC.NET Версия 3.0. Сборка 1110
var ar:array of integer;
i,n,r:integer;
begin;
readln(n);
setlength(ar,n+1);
writeln('Array');
for i:=1 to n do
begin;
ar[i]:=random(100);
write(ar[i]:4);
end;
sort(ar);
writeln;
writeln('По возрастанию:');
for i:=1 to n do
write(ar[i]:4);
reverse(ar,1,n);
writeln;
writeln('По убыванию:');
for i:=1 to n do
write(ar[i]:4);
end.
Пример ввода:
5
Пример вывода:
Array 26 24 73 54 61
По возрастанию: 24 26 54 61 73
По убыванию: 73 61 54 26 24
Не нашли ответ?
Похожие вопросы