Pomoc s úkoly – Delphi – Fórum – Programujte.com

Ahoj, potřeboval bych pomoc s následujícími úkolem.

- Vygenerujte jednorozměrné pole a otočte pořadí jeho prvků.


mám teto zd.kód


var
pole :array [1..50] of Byte;
a,b, N: Byte;
pomoc: Byte;

begin
Writeln('Vloz rozmer pole');
Readln(N);
Randomize;
for a := 1 to N do
pole [a] := Random(255);
for a := 1 to N do
Write (pole [a] : 3,' ');
Writeln;


// for a := 1 to N div 2 do
// begin
// pomoc :=pole [a];
// pole [a] :=pole [N+1-a];
// pole [N+1-a] := pomoc;
// end;


for b := 1 to N do
for a:= 1 to N - 1 do
if pole [a] < pole [a + 1] then
begin
pomoc :=pole [a];
pole [a] :=pole [a+1];
pole [a+1] := pomoc;
end;


for a := 1 to N do
write(pole[a]:3,' ' );
Readln;
end.



Jen to nefunguje 100%, ten druhý řádek neobrací čísla 100%, upravil by to někdo tak aby to fungovalo správně, please.




nevím jakna to :-(

Ta zapoznámkováná část vypadá dobře - měla by jet...

Tuhle část tak nechápu... Proč tam je? Přeházet to a pak to seřadit - no seřadit, vyměnit pár prvků? To je divný...
for b := 1 to N do
for a:= 1 to N - 1 do
if pole [a] < pole [a + 1] then
begin
pomoc :=pole [a];
pole [a] :=pole [a+1];
pole [a+1] := pomoc;
end;

To xy3000 : A nemozes pouzit 2. pole?

x:=a[i];
a[i]:=a[n+1-i];
a[n+1-i]:=x;
z hlavy napisane mozno to bude fungovat

To Delphimania : to vypada na neco jako bubble sort.. akorat bez zarazky tak i kdyby pole bylo serazeny tak to bude trvat dlouho