Question

Tìm giá trị lớn nhất, nhỏ nhất, sắp xếp giá trị mảng tăng dần, giảm dần.

Answer 1

Sắp xếp theo giá trị tăng/giảm dần:

Type mang=array [1..20] of integer;

var a:mang; n,i,j,x:integer;

begin

readln(n);

for i:=1 to n do

begin

readln(a[i]);

end;

for i:=1 to n-1 do

for j:=i+1 to n do

if a[i] > a[j] then ( đây là sắp xếp tăng dần, còn giảm dần thì bạn đổi dấu ngược lại, phần trước và phần sau kh thay đổi )

begin

x:=a[i];

a[i]:=a[j];

a[j]:=x;

end;

writeln('ket qua sau sap xep');

for i:=1 to n do

writeln(a[i]);

readln;

end.

Answer 2

program ctdt;
uses crt;
type mang=array[1..100]of integer;
var n,i,j:integer;
a:mang;
(*----------------------------*)
begin
readln(N);
for i:=1 to n do
readln(a[i]);
(*----------------------------*)
{tim min}
min:=a[1];
for i:=2 to n do
if a[i]<min then
min:=a[i];
writeln(min);
(*----------------------------*)
{tim max}
max:=a[1];
for i:=2 to n do
if a[i]>max then
max:=a[i];
writeln(max);
(*----------------------------*)
{sap xep tang dan}
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;
(*----------------------------*)
{sap xep giam dan chi can doi dau o lenh if}

for i:=1 to n do
write(a[i],' ');
readln;
end.

Answer 3

min max va mot so bien khac ban nho khai bao nha