Question

bài 3:

cho một dãy số thực bất kì hãy kiểm tra xem dãy số đã sắp xếp chưa. nếu sắp xếp rồi thì theo chiều nào? nếu chưa thì sắp xếp theo chiều tăng dần.

pascal nha giúp mik với ạ ko lấy c++

 

Answer 1

Program HOC24;

var i,n,d,k,j: integer;

tg: real;

a: array[1..1000] of real;

begin

write('Nhap so phan tu : '); readln(n);

writeln('Nhap day so: ');

for i:=1 to n do read(a[i]);

readln;

d:=0;

for i:=2 to n do

if (a[i-1]>a[i]) then d:=d+1;

if (d=n-1) then writeln('Day sap xep giam dan');

for i:=2 to n do

if (a[i-1]<a[i]) then k:=k+1;

if (k=n-1) then writeln('Day sap xep tang dan');

if (k<>n-1) and (d<>n-1) then

begin

for i:=1 to n do

begin

for j:=i+1 to n do

begin

if (a[i]>a[j]) then

begin

tg:=a[i];

a[i]:=a[j];

a[j]:=tg;

end;

end;

end;

write('Day sau khi sap xep la: ');

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

end;

readln

end.