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

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!