Глупая надежда спрашивать решение..но все же..

1.Создать массив на 20 значений.

2.Загрузить массив случайными числами от 10 до 100.Как выразился мой учитель это подсказка: P=INT(RND*90+10)

3.Выполнить сортировку массива по возрастанию.

4.Вывести значение массива в столбик на экран.

Пожалуйста помогите..сегодня весь класс двойки получил... 

1) var a:array [1..20] of integer;

i:integer;

2)

randomize;

for i:= 1 to 20 do

  a[i]:=random(90)+10;

3) n:=20;

for i:=1 to n-1 do      for j:=i+1 to n do        if a[i]<a[j] then begin           t:=a[i];           a[i]:=a[j];           a[j]:=t;        end;

4) for i:= 1 to n do        writeln(a[i]);

еще бы не двойки, легкотня то такая

 Я так понимаю язык Бейсик поэтому 

1) DIM a(20)

2) FOR i=1 to 20  

      LET  a(i)=INT (RND*90+10)

NEXT  i

3) LET n=20

FOR  i:=1 to n-1  FOR j:=j+1 to n  IF (a[i]<a[j]) THEN   LET t=a(i): LET    a(j)=t: LET a(i)=a(j)

NEXT j: NEXT i   4) FOR i=1 to n 

          PRINT AT i,2; A(i)

NEXT i

Примерно вот  так , прошу прощения если что то напутал в синтаксисе на Бейсике писал последний раз лет 15 назад