Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Văn Công Sỹ

Viết chương trình nhập từ bàn phím số nguyên dương N (N<=100) và dãy A gồm N số nguyên A1, A2, …AN. Tìm và in ra số nhỏ nhất của dãy số vừa nhập? Sắp xếp dãy số A theo thứ tự giảm dần và in ra màn hình. Input: Số nguyên dương N và dãy số A gồm N số nguyên dương a1, a2, …, an. Output: In ra Phần tử nhỏ nhất của dãy số đó. Sắp xếp dãy số A theo thứ tự giảm dần và in ra màn hình.

Văn Công Sỹ
25 tháng 4 2021 lúc 10:28

Làm giúp bài này nhé

 

Bùi Anh Tuấn
25 tháng 4 2021 lúc 19:41

Nguyễn Lê Phước Thịnh
25 tháng 4 2021 lúc 22:19

uses crt;

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

i,n,min,tam,j:integer;

begin

clrscr;

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

for i:=1 to n do

begin

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

end;

min:=a[1];

for i:=1 to n do 

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

writeln('Gia tri nho nhat la: ',min);

for i:=1 to n-1 do 

  for j:=i+1 to n do 

if a[i]<a[j] then 

begin

tam:=a[i];

a[i]:=a[j];

a[j]:=tam;

end;

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

readln;

end.


Các câu hỏi tương tự
Quốc Đông Trương
Xem chi tiết
HUY
Xem chi tiết
nuinuini
Xem chi tiết
29_LÃ XUÂN SƠN
Xem chi tiết
Nguyễn Thái Luật
Xem chi tiết
Quốc Đông Trương
Xem chi tiết
hoàng
Xem chi tiết
Nguyên Nguyễn
Xem chi tiết