Uses Crt;
Var A : Array [1..100] Of Integer ;
i , j , n , T : Integer ;

BEGIN
Clrscr ;
Write(' Do dai cua day so N = ') ; Readln (N) ;
Writeln (' Nhap day so : ') ;
For i := 1 To N Do
Begin
Write('A[', i ,'] = ') ; Readln ( A ) ;
End ;
i := 1 ;
While (i <= n-1) Do
Begin
j := i+1;
While j<=n do
Begin
If A[j] < A then
Begin
T := A[j];
A[j ] := A;
A := T ;
End ;
j := j + 1;
End ;
i := i + 1;
End ;
Writeln(' Day sau khi sap xep : ') ;
For i := 1 To N Do Write(A : 4) ;
Readln ;
END .

dài VL

2/ program bt;

var N,i:integer;

begin

write('nhap so N'); readln(N);

writeln;

writeln (' bang nhan ', N);

writeln;

for i:=1 to 10 do writeln(N,'x',1:2,'= ', N*1;3); end

readln

end.

Mik chỉ bít làm bài 2 thôi!

program loc_so_le;

uses crt;

var N,y: longint;

begin

Writeln('Nhap so N '); Readln(N);

for y:=1 to N do if (y mod 2) <>0 then Writeln (y,' la so le');

Readln;

end.

Program tính_chia;

Uses crt;

Var i, n, s, a: integer;

Begin

Write('Nhap so n: '); readln(n);

s:=1;

For i:=1 to n do s:=s*i;

a:=0;

For i:=1 to n do a:=a+i;

Writeln('Ket qua phep tinh chia bang: ', s/a :10:2);

readln;

End.

***Bài một và bài 3 mình biết làm con bài hai mình chịu thua!

Program Abc_2003;

Uses crt;

Var: i,n,S,d,m,n: integer;

A: array[1..1000] of integer;

Begin

Clrscr;

Write('Moi ban nhap so phan tu cua mang: '); Readln(n);

For i:= 1 to n do

Begin

Writeln('Hay nhap so thu ',i,' : '); Readln(a[i]);

end;

s:= 0

For i:= 1 to n do

begin

if a[i] mod 2 = 0 then m:= m+1 else n:= n+1;

S:= S+1;

end;

Writeln('Trong mang co ',S,' phan tu, trong do co ',m,' phan tu chan va ',n,' phan tu le');

Readln;

End.

không biết chương trình có sai chỗ nào không nữa!?

like mạnh cho bạn

Program bai1;

uses crt;

var T: real;

begin

clrscr;

write('nhap T ='); readln(T);

if T > 10000 then writeln('so tien thanh toan la : ' ,0.7*T:4:2 ,' VND')

else

writeln('so tien thanh toan la :' ,0.9*T:4:2 , ' VND');

readln;

end.

Program luy_thua;

Uses crt;

Var a, i, n: integer;

Begin

Write('Nhap co so a: '); readln(a);

Write('Nhap so mu n: '); readln(n);

For i:=1 to n do a:=a*a;

Writeln('Gia tri a luy thua n la: ', a);

Readln;

End.

Phỏ i Var i, n, s, a:integer;

Begin

Readln(a, n);

s:=1;

For i:=1 to n do s:=s*a;

Writeln(s);

End.