написать прграмму которая вводит через коавиатуру кол во эоементов и эоементов

Написать прграмму которая вводит через коавиатуру кол во эоементов и эоементов массива вывести на экран массив отсортированный по возростаниб и по убыванию

Задать свой вопрос
1 ответ
//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
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

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

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт