1/ viết chương trình nhập vào từ bàn phím mảng A gồm n phần tử, mỗi phần tử không vượt quá 500, n<= 250.tìm chỉ số và giá trị của phần tử nhỏ nhất trong dãy số đã cho và xuất kết quả ra màng hình 2/ số nguyên dương N (N<= 250) và dãy A gồm N số nguyên dương mỗi số đều không vượt quá 500. viết chương trình sắp xếp thành dãy không tăng
1/
uses crt;
var a: array[1..250] of integer;
n,i,min: integer;
begin
clrscr;
write (‘nhap n: ‘); readln (n);
for i:=1 to n do
begin
write (‘nhap a[‘,i,’]: ‘); readln (a[i]);
if min>a[i] then min:=a[i];
end;
writeln (‘so nho nhat: ‘,min);
readln;
end.
2/
uses crt;
var a: array[1..250] of integer;
i,n,j,t: integer;
begin
clrscr;
write (‘nhap n: ‘); readln (n);
for i:=1 to n do
begin
write (‘nhap a[‘,i,’]: ‘); readln (a[i]);
end;
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]<a[j] then
begin
t:=a[i];
a[i]:=a[j];
a[j]:=t;
end;
write (‘day sau khi sap xep khong tang la: ‘);
for i:=1 to n do
write (a[i],’ ‘);
readln;
end.
1.
program ctpt;
uses crt;
var A: array[1..500] of longint;
i, n, min: integer;
begin
clrscr;
write(‘Nhap n = ‘); readln(n);
if n>250 then write(‘n phai <= 250’) else
begin
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];
end;
writeln(‘Min = ‘, min);
readln
end.
2.
program ctpt;
uses crt;
var A: array[1..500] of longint;
n, i, j, t: integer;
begin
clrscr;
write(‘Nhap n = ‘); readln(n);
if n>250 then write(‘n phai <= 250) else
begin
for i:=1 to n do
begin
write(‘A[‘, i, ‘] = ‘); readln(A[i]);
end;
for i:=1 to n-1 do
for j:=i+1 to n do
if A[i]<A[j] then
begin
t:=A[i];
A[i]:=A[j];
A[j]:=t;
end;
for j:=1 to n do write(A[j]:3);
end;
readln
end.