Bài 9. Làm việc với dãy số

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
LÊ NGỌC DIỄM MY

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 !!!!

Người thích nghịch 2
11 tháng 4 2018 lúc 19:24

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.

Nguyễn Ngọc Sáng
12 tháng 4 2018 lúc 21:46

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é :)

Nguyễn Ngọc Sáng
12 tháng 4 2018 lúc 21:48

ở chỗ vòng for cuối cùng ấy bạn:

khi viết

writeln(a[i]:4 ) nhes


Các câu hỏi tương tự
Epic Kevin
Xem chi tiết
Phan Hùng Anh
Xem chi tiết
Thị Na Trần
Xem chi tiết
Ánh sao
Xem chi tiết
Đặng Nguyễn Hoài Băng
Xem chi tiết
0o0 Nhok kawaii 0o0
Xem chi tiết
Ánh sao
Xem chi tiết
Nguyễn Thị Hằng
Xem chi tiết
nhannhan
Xem chi tiết