viết chương trình xuất ra màn hình số lớn nhất trong ba số nguyên ngẫu nhiên được nhập từ bàn phím

2 câu trả lời

Program so_lon_nhat;

Uses crt;

Var a,b,c,max: integer;

Begin 

Writeln ('nhap a,b,c='); 

Readln (a,b,c);

If a>b then max:= a else max:= b;

If c>max then max:= c;

Writeln ('so lon nhat la:', max);

Readln

End.

uses crt;
var x,y,z,max:longint;
begin
       clrscr;
       write('Nhap x,y,z: '); readln(x,y,z);
       if x>y then max:=x
       else max:=y;
       if max<z then max:=z;
       write('Max: ',max);
       readln;
end.