Câu 3: Viết chương trình nhập vào dãy n số nguyên. In ra màn hình theo thứ tự tăng dần, giảm dần Câu 4: Viết chương trình nhập vào dãy n số nguyên. In

Câu 3: Viết chương trình nhập vào dãy n số nguyên. In ra màn hình theo thứ tự tăng dần, giảm dần
Câu 4: Viết chương trình nhập vào dãy n số nguyên. In ra số lớn nhất, số bé nhất
Ghi đầy đủ cho mình nha, mình không hiểu bài nên đừng ghi tắt

0 bình luận về “Câu 3: Viết chương trình nhập vào dãy n số nguyên. In ra màn hình theo thứ tự tăng dần, giảm dần Câu 4: Viết chương trình nhập vào dãy n số nguyên. In”

  1. Xin câu trả lời hay nhất ạ!

    CÂU 1: 

    *Tăng dần 

    program ct;

    ues crt;

    var A:array [1..1000] of integer;

          i,j,n,tg:integer;

    begin clrscr;

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

       for i:=1 to n do

         begin

            writeln(‘Nhap so thu ‘,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

               tg:=A[i];

               A[i]:=A[j];

               A[j]:=tg;

            end;

       writeln(‘Day so sap xep theo thu tu tang dan la: ‘);

       for i:=1 to n do

         write(A[i]:3);

    readln;

    end.

    *Giảm dần

    program ct;

    ues crt;

    var A:array [1..1000] of integer;

          i,j,n,tg:integer;

    begin clrscr;

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

       for i:=1 to n do

         begin

            writeln(‘Nhap so thu ‘,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

               tg:=A[i];

               A[i]:=A[j];

               A[j]:=tg;

            end;

       writeln(‘Day so sap xep theo thu tu giam dan la: ‘);

       for i:=1 to n do

         write(A[i]:3);

    readln;

    end.

    CÂU 2: 

    Program cau2 ;

    Uses crt;

    Var i,n,Max,Min:integer;

    S:longint;

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

    Begin

    Clrscr;

    S:=0;

    Write(‘nhap n tu ban phim’);

    Readln(n);

    For i:=1 to n do

    Begin

    Write(‘A[‘,i,’]’);

    Readln(A[i]);

    End;

       Max:=A[1]; Min:=A[1];

    For i:=2 to n do

       Begin

              if Max<A[i] then Max:=A[i];

              if Min>A[i] then Min:=A[i];

        end;

    Write(‘so nho nhat la’,Min);

    Write(‘so lon nhat la’,Max);

    Readln

    End.

    Bình luận

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