Cho 3 số a b c viết chương trình tìm giá trị lớn nhất và nhỏ nhất của 3 số đó

Câu 19: Cho 3 số a b c viết chương trình tìm giá trị lớn nhất và nhỏ nhất của 3 số đó

Trả lời

var a,b,c,i:integer;

          MX,MN:real;

begin

write(‘nhap a’);readln(a);

write(‘nhap b’);readln(b);

write(‘nhap c’);readln(c);

MX:=a;MN:=a;

if MX

if MX

if MN

if MN

writeln(‘Min=’,MN);

writeln(‘Max=’,MX);

readln;

end.