Question

Viết chương trình sắp xếp 5 số thứ tự trong pascal.

Cả thuật toán và chương trình luôn ạ

(help me!! Cái này trong sách hoạt động trải nghiệm sáng tạo lớp 8 á. Trang 52-59 .Ở hoạt động 4 nhưng mà liên quan đến hoạt động 1 ạ. Làm ơn hãy giúp mình, mình biết ơn lắm luôn đó )

Answer 1

sawpsxeeps tăng dần

program bai1;

var a:array[1..5] of longint;

i,z,q,n:longint;

begin

repeat

write('N= ');

readln(n);

end;

for i:=1 to n do

begin

write('a[',i,']= ');

readln(a[i]);

end;

for i:=1 to n-1 do

for q:=i+1 to n do

if a[i]>a[q] then

begin

z:=a[i];

a[i]:=a[q];

a[q]:=z;

for i:=1 to n do write(a[i],' ');

readln

end.

Answer 2

Sx tăng dần:

Var i,S,i,j :integer;

A:array[1..10] of integer;

Begin

For i:= 1 to 5 do Begin

Writeln('A[',i,']=');

Readln(A[i]);

end;

For i:= 1 to n-1 do

For j:= i+1 to n do If A[i]>A[j] then

Begin

S:=A[i];

A[i]:=A[j];

A[j]:=S;

End;

Writeln (' day sau sx :');

For i:= 1 to 5 do Write (A[i]:5);

Readln;

end.

Sx giảm dần :

Var i,S,i,j :integer;

A:array[1..10] of integer;

Begin

For i:= 1 to 5 do Begin

Writeln('A[',i,']=');

Readln(A[i]);

end;

For i:= 1 to n-1 do

For j:= i+1 to n do If A[i]<A[j] then

Begin

S:=A[i];

A[i]:=A[j];

A[j]:=S;

End;

Writeln (' day sau sx :');

For i:= 1 to 5 do Write (A[i]:5);

Readln;

end.