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

 

Var   i,j,k,ix,jx,kx: integer;   s: string; function per(x: integer): string; begin case x of   10: result: ='a';   11: result: ='b';   12: result: ='c';   13: result: ='d';   14: result: ='e';   15: result: ='f';   else     str(x,result);   end; end; begin for i: =1 to 15 do   for j: =0 to 15 do     for k: =0 to 15 do       if 2*(i*16*16+j*16+k)=j*16*16+k*16+i then           begin           ix: =i;           jx: =j;           kx: =k;           end; s: =per(ix)+per(jx)+per(kx); writeln(s);       end.  в результате работы программы получаем ответ.ответ: 6db

Const n = 12; const k = 0; var temp : array [1..n] of integer;       i, min, max, count : integer; begin       min : = 1000; max : = -1000;       count : = 0;       {заполнение массива данными}       for i : = 1 to n do       begin             write(i,'-й месяц: ');             readln(temp[i]);             if (temp[i] > max) then                   max : = temp[i];             if (temp[i] < min) then                   min : = temp[i];             {если температура выше k - месяц считается теплым}             if (temp[i] > k) then                   count : = count + 1;       end;       writeln('минимальная температура: ',min);       writeln('максимальная температура: ',max);       writeln('количество теплых месяцев: ',count);       readln; end.