Question

nhap 1 mang so nguyen

a) in ra mang cac so nguyen do

b)in ra mang cac so nguyen roi sap xep theo thu tu tang dan

m1.inp	m2.out
-2 3 5 4 -7	-2 3 5 4 -7 -7 -2 3 4 5

Answer 1

VD chính xác :

m1.inp	m1.out
5 -2 3 5 4 -7	-2 3 5 4 -7 -7 -2 3 4 5

Lời giải :

program hotrotinhoc;

const fi='m1.inp';

fo='m1.out';

var f: text;

i,n,tg : integer;

a: array[1..32000] of integer;

procedure ip;

begin

assign(f,fi);

reset(f);

readln(f,n);

for i:=1 to n do

read(f,a[i]);

close(f);

end;

procedure out;

begin

for i:=1 to n do

write(f,a[i],' ');

writeln(f);

for i:=1 to n-1 do

for j:=i+1 to n do

if a[i]>a[j] then

begin

tg:=a[i];

a[i]:=a[j];

a[j]:=tg;

end;

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

close(f);

end;

begin

ip;

out;

end.