1.Задан массив из 10 элементов (5;150).Отсортировать массив по убыванию

Question

1.Задан массив из 10 элементов (5;150).Отсортировать массив по убыванию

Answer 1

Var
  i,j,p:integer;
  a:array[1..10]of integer;
begin
writeln('Исходный массив:');
for i:=1 to 10 do
  begin
  a[i]:=random(5,150);
  write(a[i],' ');
  end;
writeln;
for i:=1 to 10 do
   for j:=i to 10 do
    if a[j]>a[i] then
      begin
      p:=a[i];
      a[i]:=a[j];
      a[j]:=p
      end;
writeln('Отсортированный массив:');
for i:=1 to 10 do  write(a[i],' ');
end.

Comments

почему у рандома в скобках числа странные?!

---

почему нет constN?

---

Числа у рандома такие, потому что ты сама в условии их написала

---

Ну так писать все надо))) Откуда же я знаю, что тебе через константу надо прогу делать?)) Все нюансы описывай в следующий раз. Есть множество способов решения одной задачи.