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