In ra 3 số nhỏ nhất trong mảng (mảng số thực) .pascal
1 câu trả lời
uses crt;
var a:array[1..1000]of longint;i,j,n,tam:longint;
begin
clrscr;
write('nhap n phan tu:');readln(n);
for i:=1 to n do
begin
write('a[',i,']=');readln(a[i]);
end;
for i:=1 to n do
for j:=1 to i do
if a[i]<a[j] then
begin
tam:=a[i];a[i]:=a[j];a[j]:=tam;
end;
for i:=1 to 3 do write(a[i],' ');
readln;
end.
