BÀI TẬP:
- Viết chương trình nhập vào giá trị nguyên cho các phần tử của mảng A gồm N phần tử. Sắp xếp giá trị của các phần tử trong mảng theo thứ tự tăng dần.
- Ví dụ:
+ A [1] = 8
+ A [2] = 2
+ A [3] = 9
+ A [4] = 6
- Sau khi sắp xếp:
+ A [1] = 2
+ A [2] = 6
+ A [3] = 8
+A [4] = 9
Giúp mình với !!!!
program TT;
uses CRT;
Var i,n:integer;
P:longint; S:Real;
begin
Write('Nhap N: '); Readln(N);
S:=0;
P:=1;
For i:=1 to N do
begin P:=P*i; S:=S+1/P; end;
Writeln('Tong S= ',S:5:3);
Readln
End.
mình làm trên free pascal nhé bạn
Uses crt;
Var tam,n,i,b,c:integer;
a ARRAY [1..100] of integer;
Begin
CLRSCR;
Writeln('Moi nhap do dai cua mang'); Readln(n);
For i:=1 to n do
Begin
Writeln('a[',i,']');
Readln(a[i]);
End;
tam:=a[i];
Min:=a[1];
For i:=1 to n do
For c:=i+1 to n do
If a[c]<a[i] then
Begin
tam:=a[i];
a[i]:=a[c];
a[c]:=tam;
End;
For i:=1 to n do
Writeln(a[i]);
Readln;
End.
bạn kiểm tra lại xem còn sót biến nào ko bổ sung nhé :)
ở chỗ vòng for cuối cùng ấy bạn:
khi viết
writeln(a[i]:4 ) nhes
