Viết chương trình tính tổng max, min của 5 số nguyên a,b,c,d,e

0 bình luận về “Viết chương trình tính tổng max, min của 5 số nguyên a,b,c,d,e”

1. Bạn tham khảo :

   Mình đánh trên word nên hơi khó nhìn nhé  T^T

   

   Bình luận

2. program max_min;

   uses crt;

   var S:longint;

         a,b,c,d,e,max,min:integer;

   begin clrscr;

      writeln(‘Nhap vao 5 so nguyen: ‘); readln(a,b,c,d,e);

           max:=a;

        if b>max then max:=b;

        if c>max then max:=c;

        if d>max then max:=d;

        if e>max then max:=e;

      writeln(‘Max: ‘,max);

           min:=a;

        if b<min then min:=b;

        if c<min then min:=c;

        if d<min then min:=d;

        if e<min then min:=e;

      writeln(‘Min: ‘,min);

           S:=max+min;

      writeln(‘Tong max, min la: ‘,S);

   readln;

   end.

   Học tốt!

   Bình luận