viết chương trình sắp xếp mảng A theo thứ tự tăng dần , giảm dần ( sử dụng chương trình con )

Question

viết chương trình sắp xếp mảng A theo thứ tự tăng dần , giảm dần ( sử dụng chương trình con )

in progress 0
Thu Cúc 5 years 2021-04-17T04:02:23+00:00 2 Answers 71 views 0

Answers ( )

  1. huyenthanh
    0
    2021-04-17T04:04:19+00:00
    Reply

    program oken;
    uses crt;
    type mang= array [1..100] of integer;
    var a: mang;
        n: integer;
    procedure nhap(x: longint; var d: mang);
            var i: longint;
            begin
                    for i:=1 to x do
                            begin
                                    write(‘A[‘,i,’]: ‘);
                                    readln(d[i]);
                            end;
            end;
    procedure xuat(d: mang; pt:longint);
            var i: longint;
            begin
                    for i:=1 to pt do
                            write(d[i],’ ‘);
                    writeln;
            end;
    procedure sxgiam(var d: mang; pt:longint);
            var i,j,tam: longint;
            begin
                    for i:=1 to pt-1 do
                            for j:=i+1 to pt do
                                    if d[i]<d[j] then
                                            begin
                                                    tam:=d[i];
                                                    d[i]:=d[j];
                                                    d[j]:=tam;
                                            end;
            end;
    procedure sxtang(var d: mang; pt:longint);
        var i,j,tam: longint;
        begin
                for i:=1 to pt-1 do
                        for j:=i+1 to pt do
                                if d[i]>d[j] then
                                        begin
                                                tam:=d[i];
                                                d[i]:=d[j];
                                                d[j]:=tam;
                                        end;
        end;
    begin
        clrscr;
            write(‘Nhap so phan tu cua mang A: ‘); readln(n);
            nhap(n,a); xuat(a,n);
            write(‘Sap xep mang A tang dan: ‘);sxtang(a,n); xuat(a,n);
            write(‘Sap xep mang A giam dan: ‘);sxgiam(a,n); xuat(a,n);
        readln;
    end.

  2. dangkhoa
    0
    2021-04-17T04:04:28+00:00
    Reply

    Để tìm câu trả lời chính xác các em hãy tham khảo sắp xếp mảng tăng dần các nguồn hoc24.vn, lazi.vn, hoidap247.com để thầy cô và các chuyên gia hỗ trợ các em nhé!

Leave an answer

Browse

Giải phương trình 1 ẩn: x + 2 - 2(x + 1) = -x . Hỏi x = ? ( )