Viết chương trình con tìm giá trị lớn của bốn số nguyên nhập vào từ bàn phím

2 câu trả lời

Function max(a,b,c,d: longint): longint;
Begin
        max:=a;
        If b>max then max:=b;
        If c>max then max:=c;
        If d>max then max:=d;
End;

Function timmax(a,b,c,d:longint):longint;

begin

   max:=a;

   if max<b then max:=b;

   if max<c then max:=c;

   if max<d then max:=d;

end;

Câu hỏi trong lớp Xem thêm