1.- Viết chương trình nhập vào một dãy số có N phần tử được nhập từ bàn phím. – Hãy sắp xếp dãy số giảm dần – Xuất ra dãy số trước và sau khi sắp xếp

1.- Viết chương trình nhập vào một dãy số có N phần tử được nhập từ bàn phím.
– Hãy sắp xếp dãy số giảm dần
– Xuất ra dãy số trước và sau khi sắp xếp
2.Viết chương trình kiểm tra một số N nhập từ bàn phím, xuất ra tổng các chữ số của nó

0 bình luận về “1.- Viết chương trình nhập vào một dãy số có N phần tử được nhập từ bàn phím. – Hãy sắp xếp dãy số giảm dần – Xuất ra dãy số trước và sau khi sắp xếp”

  1. Uses Crt;
    Var a:array[1..1000] of integer;
    i,n,j,gd,truoc,sau:Integer;
    Begin
    Clrscr;
    Write(‘Nhap so ptu n= ‘); Readln(n);
    For i:= 1 to n do
    Begin
    Write(‘Nhap a[‘,i,’]= ‘); Readln (a[i]);
    End;
    Writeln;
    Write(‘Day so truoc khi sap xep theo thu tu giam dan la: ‘);
    For i:= 1 to n do Write(a[i]:3);
    Writeln;
    For i:=1 to n-1 do
    For j:=i+1 to n do
    If A[i]<A[j] then
    Begin
    gd:=a[i];
    a[i]:=a[j];
    a[j]:=gd;
    End;
    Writeln(‘Day so sau khi sap xep theo thu tu giam dan la: ‘);
    For i:=1 to n do
    Write(A[i]:3);
    Readln
    End.

    Bình luận

Viết một bình luận