Please help me!!!!!!!!!!!!!!!!!!!!!!!!!!!!! Viết chương trình nhập 3 số nguyên dương từ bàn phím. In ra màn hình số lớn nhất trong 3 số đó. Sắp xếp c

0 bình luận về “Please help me!!!!!!!!!!!!!!!!!!!!!!!!!!!!! Viết chương trình nhập 3 số nguyên dương từ bàn phím. In ra màn hình số lớn nhất trong 3 số đó. Sắp xếp c”

1. uses crt;
   var max,a,b,c: word;
   begin
    clrscr;
     write (‘nhap so thu nhat: ‘);  readln (a);
     write (‘nhap so thu hai: ‘);  readln (b);
     write (‘nhap so thu ba: ‘);  readln (c);
     max:=a;
     if max<=b then max:=b;
     if max<=c then max:=c;
     writeln;
     writeln (‘so lon nhat la: ‘,max);
     writeln;
     write (‘cac so sau khi sap xep giam dan la: ‘,max,’ ‘);
     if (max>b) and (b>c) then
      write (b,’ ‘,c);
     if (max>a) and (a>b) then
      write (a,’ ‘,b);
     if (max>c) and (c>a) then
      write (c,’ ‘,a);
    readln;
   end.

   xin 5*

   xin câu trả lời hay nhất

   xin 1 lời cảm ơn

   

   Bình luận

2. program bt;

   uses crt;

   var

           i,max,tam,j:integer;

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

   begin

           for i:=1 to 3 do readln(A[i]);

           max:=A[1];

           for i:=2 to 3 do if A[i]>max then max:=A[i];

           writeln(max);

           for i:=1 to 2 do

           for j:=i+1 to 3 do if A[i]<A[j] then

           begin

                tam:=A[i]; A[i]:=A[j]; A[j]:=tam;

           end;

           for i:=1 to 3 do write(A[i],’ ‘);

           readln;

   end.

   Mình làm như này, sau đó bạn  có thể áp dụng vào các bài khác có nhiều số hơn (n số chẳng hạn), bạn cũng làm tương tự

                             Chúc bạn học tốt                   

   Bình luận