Question

Viết chương trinh nhập 6 số nguyên a, b, c, d, e, f Xuất ra màn hình số lớn hơn.

Answer 1

Sửa đề: In ra màn hình số lớn nhất

uses crt;

var a,b,c,d,e,f,ln:integer;

begin

clrscr;

readln(a,b,c,d,e,f);

ln:=a;

if ln<b then ln:=b;

if ln<c then ln:=c;

if ln<d then ln:=d;

if ln<e then ln:=e;

if ln<f then ln:=f;

write(ln);

readln;

end.