C3:
Uses Crt;
Var a:array[1..9] of real;
i:integer;
Begin
Clrscr;
a[1]:=0;
For i:= 2 to 9 do
Begin
Write(' Nhap so ptu a[',i,']= '); Readln(a[i]);
End;
Readln
End.
C4:Uses Crt;
Var a:array[1..1000] of integer;
i,n,tg,j:integer;
Begin
Clrscr;
Write(' Nhap so ptu N = '); Readln(n);
For i:= 1 to n do
Begin
Write(' Nhap so ptu a[',i,']= '); Readln(a[i]);
End;
For i:=1 to n-1 do
For j:=i+1 to n do
If A[i]<A[j] then
Begin
tg:=A[i];
A[i]:=A[j];
A[j]:=tg;
End;
Writeln('Day so sap xep theo thu tu giam dan la: ');
For i:=1 to n do If a[i] > 0 then
Write(A[i]:3);
Readln
End.
*Nếu có thêm b2 thì báo lại với mình nhé! Nhớ tick và chọn làm ctrl hay nhất giúp mình đó ~~ (Hãy check lại để kiểm tra đúng kqua).
*p/s: Có gì thì cứ hỏi mình nhé! :33
