Nhập vào 1 dãy số nguyên n phần tử . Đưa ra màn hình :
– Dãy số được sắp xếp theo thứ tự ‘ không giảm ‘
– Dãy số được xắp xếp theo thứ tự ‘ không tăng ‘
Giải thích các bước làm giúp mình với ạ . Tks bro
Nhập vào 1 dãy số nguyên n phần tử . Đưa ra màn hình :
– Dãy số được sắp xếp theo thứ tự ‘ không giảm ‘
– Dãy số được xắp xếp theo thứ tự ‘ không tăng ‘
Giải thích các bước làm giúp mình với ạ . Tks bro
$@tunguyen09$
Bạn tham khảo nhé
Program Day_so_tang_dan
Uses Crt;
Var a,b,c,d,e :integer;
f:array[1…10000] of integer ;
Begin
Clrscr;
Writeln(‘Day so được sap xep theo thu tu khong giam ‘)
Writeln(‘ Nhap so phan tu cua day b:= ‘);
Readln(n); For a:=1 to n do
Begin
Writeln(‘f[‘,a,’ ] =’) ;
Readln(‘f[a]) ;
End;
For a:=1 to b-1 do
For c:= 1 to a +1 do
If f[a] < f[c] then
Begin
t:= f[a]
f[a] = f[c] ;
f[c] = d;
End.
uses crt;
var i,n,t,j:longint; a:array[1..1000000]of longint;
begin
clrscr;
write(‘n=’);readln(n);
for i:=1 to n do
begin
write(‘a[‘,i,’]=’);readln(A[i]);
for j:=1 to i do
if a[j]<a[i] then begin t:=a[i]; a[i]:=a[j]; a[j]:=t; end;
end;
for i:=1 to n do write(a[i]:5); writeln;
for i:=1 to n do write(a[n-i+1]:5); writeln;
readln
end.