Please help me!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Viết chương trình nhập 3 số nguyên dương từ bàn phím. In ra màn hình số lớn nhất trong 3 số đó. Sắp xếp các số vừa nhập theo thứ tự giảm dần. (sử dụng câu lệnh điều kiện).
Please help me!!!!!!!!!!!!!!!!!!!!!!!!!!!!! Viết chương trình nhập 3 số nguyên dương từ bàn phím. In ra màn hình số lớn nhất trong 3 số đó. Sắp xếp c
By Madelyn
uses crt;
var max,a,b,c: word;
begin
clrscr;
write (‘nhap so thu nhat: ‘); readln (a);
write (‘nhap so thu hai: ‘); readln (b);
write (‘nhap so thu ba: ‘); readln (c);
max:=a;
if max<=b then max:=b;
if max<=c then max:=c;
writeln;
writeln (‘so lon nhat la: ‘,max);
writeln;
write (‘cac so sau khi sap xep giam dan la: ‘,max,’ ‘);
if (max>b) and (b>c) then
write (b,’ ‘,c);
if (max>a) and (a>b) then
write (a,’ ‘,b);
if (max>c) and (c>a) then
write (c,’ ‘,a);
readln;
end.
xin 5*
xin câu trả lời hay nhất
xin 1 lời cảm ơn
program bt;
uses crt;
var
i,max,tam,j:integer;
A:array[1..100] of integer;
begin
for i:=1 to 3 do readln(A[i]);
max:=A[1];
for i:=2 to 3 do if A[i]>max then max:=A[i];
writeln(max);
for i:=1 to 2 do
for j:=i+1 to 3 do if A[i]<A[j] then
begin
tam:=A[i]; A[i]:=A[j]; A[j]:=tam;
end;
for i:=1 to 3 do write(A[i],’ ‘);
readln;
end.
Mình làm như này, sau đó bạn có thể áp dụng vào các bài khác có nhiều số hơn (n số chẳng hạn), bạn cũng làm tương tự
Chúc bạn học tốt