Những câu hỏi liên quan
Quỳnh Châm Lương
Xem chi tiết
Mạnh=_=
2 tháng 3 2022 lúc 10:02

bucminh

Keiko Hashitou
2 tháng 3 2022 lúc 10:04

lỗi rồi bn, mà giúp j vậy ak

kudo sinhinichi
2 tháng 3 2022 lúc 10:04

ảnh lỗi ak

Anh Lê duy
Xem chi tiết
29_LÃ XUÂN SƠN
Xem chi tiết
Nguyễn Văn Tú
Xem chi tiết
Hồ Hoàng Long
Xem chi tiết
Phạm Kiều Oanh
Xem chi tiết
Thắng Lee
Xem chi tiết
Epic Kevin
Xem chi tiết
Nguyễn Lê Phước Thịnh
9 tháng 5 2021 lúc 20:28

uses crt;

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

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

begin

clrscr;

n:=100;

for i:=1 to 100 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;

writeln('Day so tang dan la: ');

for i:=1 to n do 

  write(a[i]:4);

readln;

end.

Yeo Bang Yeong
Xem chi tiết