Thảo Võ Ngọc kim
0
0
Câu hỏi:
Câu trả lời của bạn: 15:00 26/08/2023
Câu trả lời của bạn: 13:13 23/08/2023
Nhấp vào ảnh sẽ xem được nguyên bài nha!
Câu trả lời của bạn: 16:50 23/05/2023
2. Have
3. Does / live
4. Like
5. Lives
6. Fly
Câu trả lời của bạn: 17:18 15/05/2023
Câu trả lời của bạn: 11:05 15/05/2023
Câu trả lời của bạn: 11:03 15/05/2023
Câu hỏi:
Câu trả lời của bạn: 09:55 15/05/2023
Câu hỏi:
Câu trả lời của bạn: 19:35 14/05/2023
Câu hỏi:
Câu trả lời của bạn: 19:21 14/05/2023
Câu trả lời của bạn: 09:53 14/05/2023
Câu trả lời của bạn: 10:36 13/05/2023
Var a:array[1.5..10.5]of integer; (có nhiều cách sửa lỗi)
C1: Var a:array [1..10] of integer ;
C2: Var a:array [2..11] of integer ;
C3: Var a:array [1..11] of integer ;
C4: Var a:array [2..10] of integer ;
Câu hỏi:
Câu trả lời của bạn: 10:25 13/05/2023
<=> 2X = 3
<=> X = 3/2
S={3/2}
Câu trả lời của bạn: 10:19 13/05/2023
Câu trả lời của bạn: 08:43 13/05/2023
Câu trả lời của bạn: 08:39 13/05/2023
Uses crt;
Var n, i, j, T : Integer ;
A : Array [1..100] of integer ;
Begin
Writeln ('Nhap so phan tu:');
Readln (n);
For i : = 1 to n do
Begin
Write ( 'A [ ' , i , ' ] ' ) ;
Readln ( A [ i ] ) ;
End ;
i : = 1 ;
While ( i < = n - 1) do
Begin
j : = i + 1 ;
While j < = n do
Begin
If A [ j ] < A [ i ] then
Begin
T : = A [ j ] ;
A [ j ] : = A [ i ] ;
A [ i ] : = T ;
End ;
j:=j+1 ;
End;
i:=i+1;
End ;
Write ('Day so sau khi sap xep:');
For i : = 1 to n do
Write (A [ i ]) ;
Readln;
End.
