Глупая надежда спрашивать решение..но все же.. 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 назад  

здравствуйте, а вы что с скажите Объяснение: