50 БАЛЛОВ!!!!!!!!! Переделать чтобы упоряд. по возврастанию нач. с выставки минимального...

Question

50 БАЛЛОВ!!!!!!!!! Переделать чтобы упоряд. по возврастанию нач.
с выставки минимального элемента на 1-ое число.

for i:=1 to n do begin a[i]:=random
writeln(a[i],' ');end;
for j:=n-1 down to 1 do do
for i:=1 to j do
if a[i]>a[i+1], then
begin
x:=a[i];
a[i]:=a[i+1];
a[i+1];=x;
end;
writeln;
for i:=1 to do begin; writeln(a[i]);
end.

Comments

b ljgbobnt ghjuhfvve

---

и допишите программу

---

пожалуйста!!!!!!!!!!!!!!!!

Answer 1

For i:=1 to n do
begin
a[i]:=random (20);
write(a[i],' ')
end;
for j:=n-1 downto 1 do
for i:=1 to j do
if a[i]>a[i+1] then
begin
x:=a[i];
a[i]:=a[i+1];
a[i+1]:=x
end;
writeln;
for i:=1 to  n do write(a[i],' ')

В программе:
var
i,j,n,x:integer;
a:array [1..100] of integer;
begin
readln (n);
for i:=1 to n do
begin
a[i]:=random (20);
write(a[i],' ')
end;
for j:=n-1 downto 1 do
for i:=1 to j do
if a[i]>a[i+1] then
begin
x:=a[i];
a[i]:=a[i+1];
a[i+1]:=x
end;
writeln;
for i:=1 to n do write(a[i],' ')
end.

Пример:
10
3 0 19 18 5 1 4 7 16 8
0 1 3 4 5 7 8 16 18 19 

Comments

извини те но только a[i]:=random (20);

---

исправьте пожалуйста

---

спасибо!

---

вы лушие!

---

лучшие*