ПаскальАВС.
Вводятся 3 числа,нужно ввести их
1)в порядке возрастания
2)в порядке убывания

1

Ответы и объяснения

2013-12-05T15:15:35+00:00
Var m:array [1..3] of real;
i,j:longint;
k:real;
begin 
read(m[1],m[2],m[3]); 
for i:=1 to 3 do 
for j:=3 downto i+1 do 
if m[i]>m[j] then 
begin  k:=m[i];  m[i]:=m[j];  m[j]:=k;  end; 
writeln(m[1],' ',m[2],' ',m[3]);
end.
2.
var m:array [1..3] of real;
i,j:longint;
k:real;
begin  
read(m[1],m[2],m[3]);  
for i:=1 to 3 do  
for j:=3 downto i+1 do 
if m[i]<m[j] then  
begin  k:=m[i];  m[i]:=m[j];  m[j]:=k;  end; 
writeln(m[1],' ',m[2],' ',m[3]);
end.
Это все один код
А вот для убывания var a,b,c:real;
i,j:longint;
begin
read(a,b,c);
if (a>=b) and (a>=c) then
write(a,' ') else
if (a<=b) and (b>=c) then
write(b,' ') else
write(c,' ');
if ((a<=b) and (a>=c)) or ((a<=c) and (a>=b)) then
write(a,' ') else
if ((a>=b) and (b>=c)) or ((b<=c) and (b>=a)) then
write(b,' ') else
if ((c<=b) and (c>=a)) or ((a>=c) and (c>=b)) then
write(c,' ');
if (a<=b) and (a<=c) then
write(a,' ') else
if (a>=b) and (b<=c) then
write(b,' ') else
write(c,' ');

end.
Надеюсь на лучший ответ
ладно,спасибо!