Дать массив из n элементов, напечатать элементы массива в прямом и обратном порядке, рандом

program raf105;

var a: array[1..100] of integer;

i,n: integer;

begin

write('введите количество элементов в массиве: ');

readln(n);

for i: =1 to n do

begin

  a[i]: = random(1,9);

  write(a[i],' ');

end;

writeln;

for i: =n downto 1 do

  write(a[i],' ');

end.

язык pascalabc

Type mas=array[1..1000] of integer; var     a: mas;     i,h,x,k: integer; begin     readln(h,x);     k: =0;     for i: =x to h+x do       begin           read(i);           k: =k+1;           a[k]: =i;       end;     for i: =1 to k do       write(a[i], ' '); end. на всякий случай написала вывод массива

По логике так: надо расположить по возрастанию, то есть первое  меньше  второго, второе  меньше   третьего.  поэтому под цифрами 1 и 2 надо поставить "больше": если цифры  поменяются местами, то станет "меньше", что нам и надо. порядок убывания нам не нужен - нужно возрастание, поэтому в 3 пункте "не расположены". ну а "к пункту" можно только "вернутся")1)начало.2) сравни первое и второе числа; если первое больше   второго , то поменяй их местами.3)сравни второе и третье  числа; если второе больше   третьего, то поменяй их местами.   4)если теперь три числа не  расположены  в порядке убывания, то исполни пункт 5) этого алгоритма; иначе вернись   к пункту    2).5)конец.