Расположить введенные с клавиатуры четыре целых числа в порядке возрастания и в порядке убывания

[tima58]

Расположить введенные с клавиатуры четыре целых числа в порядке возрастания
и в порядке убывания. Вывести на экран полученные последовательности.

[Вадим Мошев]

Скажите, вы надеетесь на то, что вам здесь напишут решения задач?

[Stilet]

tima58

1) Ввод чисел показать сможешь?
2) Массивами пользоваться можно?

[tima58]

Сообщение от Stilet

1) Ввод чисел показать сможешь?
2) Массивами пользоваться можно?

числа любие в строчку, можно пользоватся масивами

[newerow1989]

var p:array[1..4] of integer;
    i,j:byte;
    z:integer;
    d:boolean;
begin
   For i:=1 to 4 do
      Readln(p[i]);
   For i:=1 to 4 do
      Write(p[i],'  ');
   Writeln;
   Repeat
   d:=true;
   For i:=2 to 4 do
      If p[i-1]>p[i] then
      begin
         z:=p[i];
         For j:=i downto 2 do
            p[j]:=p[j-1];
         p[1]:=z;
         d:=false;
      end;
   Until d;
   For i:=1 to 4 do
      Write(p[i],'  ');
   Writeln;
   Repeat
   d:=true;
   For i:=2 to 4 do
      If p[i-1]<p[i] then
      begin
         z:=p[i];
         For j:=i downto 2 do
            p[j]:=p[j-1];
         p[1]:=z;
         d:=false;
      end;
   Until d;
   For i:=1 to 4 do
      Write(p[i],'  ');
   Writeln;
   Readln;
end.

Сойдет?

[Serge_Bliznykov]

newerow1989, для чего второй раз сортировать массив? Чисто по приколу?!
ведь, чтобы вывести в обратном порядке достаточно цикл в другую сторону прокрутить!

   Write('In reverse order: ');
   For i:=4 downto 1 do
       Write(p[i],'  ');
   WriteLn;

[newerow1989]

А это чтобы автора совсем запутать!

[Serge_Bliznykov]

Сообщение от newerow1989

А это чтобы автора совсем запутать!

А, ну тогда нормально!