Hãy luôn nhớ cảm ơn và vote 5*
nếu câu trả lời hữu ích nhé!
114
55
uses crt;
Var cs,c,i,j:integer;
a:array[1..4] of integer;
Begin
clrscr;
write('nhap a: ');readln(a[1]);
write('nhap b: ');readln(a[2]);
write('nhapc: ');readln(a[3]);
write('nhap d: ');readln(a[4]);
for i:=1 to 3 do
Begin
Cs:=i;
For j:=i+1 to 4 do if a[j]>=a[cs] then cs:=j;
c:=a[cs];
A[cs]:=a[i];
A[i]:=c;
End;
for i:=1 to 4 do write(a[i],' ');
Readln;
End.
Hãy giúp mọi người biết câu trả lời này thế nào?
Bảng tin
2
90
0
bạn ơi sao ko chạy đc trên pascal vậy
114
1384
55
chắc lỗi ở đâu đó
114
1384
55
để xem lại
114
1384
55
sửa lại r bạn