Bài 5. Từ bài toán đến chương trình

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
my tra

viết chương trình nhập vào một mảng gồm n số nguyên tìm phần tử lớn nhất của dãy và sắp xếp mảng của dãy thành dãy tăng dần hoặc giảm dần

MN giúp mk vs mai mk nộp rồi T_T

Minh Lệ
26 tháng 4 2019 lúc 11:54

Lời giải :

program hotrotinhoc ;

var a: array[1..32000] of integer;

i,n,j,max,tg : integer;

begin

write('n='); readln(n);

writeln('Nhap gia tri cua cac phan tu');

for i:= 1 to n do

begin

write('a[',i,']='); readln(a[i]);

end;

max:=a[1];

for i:=1 to n do

if a[i]>max then max:=a[i];

write('So lon nhat cua mang la :',max);

writeln;

for i:= 1 to n-1 do

for j:=1 to n do

if a[i]>a[j] then

begin

tg:=a[i];

a[i]:=a[j];

a[j]:=tg;

end;

writeln('Mang sau khi sap xep theo thu tu tang dan la :');

for i:= 1 to n do write(a[i]:6);

readln

end.


Các câu hỏi tương tự
Bồ Công Anh
Xem chi tiết
Hằng Võ Thanh
Xem chi tiết
Lê Hồ Duy Quang
Xem chi tiết
my tra
Xem chi tiết
Trâm
Xem chi tiết
nguyen thao
Xem chi tiết
Mai Thị Mỹ Ngọc
Xem chi tiết
Nguyễn Vịt
Xem chi tiết
iwegfwf
Xem chi tiết