Chương trình sau giải quyết vấn đề gì? Var a:array[1..4] of integer; Begin For i:1 to 4 do Begin Write(nhap cac phan tu A[,i,]:); readln (a[i]); End; For i:1 to 3 do For j: I+1 to 4 do If a[i] a[j] then Begin tg:a[i]; a[i]:a[j]; a[j]:tg; end; For I:1 to 4 do Write(a[i]); End.Select one:a. sắp xếp các phần tử của mảng theo tr...
Đọc tiếp
Chương trình sau giải quyết vấn đề gì?
Var a:array[1..4] of integer;
Begin
For i:=1 to 4 do
Begin
Write('nhap cac phan tu A[',i,']:');
readln (a[i]);
End;
For i:=1 to 3 do
For j:= I+1 to 4 do
If a[i]> a[j] then
Begin
tg:=a[i];
a[i]:=a[j];
a[j]:=tg;
end;
For I:=1 to 4 do
Write(a[i]);
End.
Select one:
a. sắp xếp các phần tử của mảng theo trật tự tăng dần
b. Tìm Max
c. sắp xếp các phần tử của mảng theo trật tự giảm dần
d. Chương trình có lỗi
