7 действительных чисел одномерного массива в произвольном порядке вводятся с клавиатуры. Вывести полученный массив в порядке убывания сделать. а то не могу понять как. ​

ответ: Turbo Pascal

program Turbo;

uses Crt;

var

i: integer;

a: array[1..7] of integer;

begin

ClrScr;

write('Введи 7 чисел: ');

for i := 1 to 7 do

  read(a[i]);

for i := 1 to 7 do

  write(a[i], ' ');

ReadKey;

end.

Объяснение: