Question

Viết chương trình nhập vào 2 số nguyên, tìm số lớn nhất của 2 số. ( Sử dụng for - do ).

Answer 1

uses crt;
var n,m,i,ln:integer;
a:array[1..2]of integer;
begin
clrscr;
write('n='); readln(n);
write('m='); readln(m);
if n<>m then
begin
a[1]:=n;
a[2]:=m;
ln:=0;
for i:=1 to 2 do
if ln<a[i] then ln:=a[i];
writeln('so lon nhat trong 2 so la: ',ln);
end
else writeln('vui long nhap lai');
readln;
end.