Даны три целых числа. вывести их в порядке возрастания. паскаль.

program dannuu; uses crt; const n=3; var  a: array [1..n] of integer;   i,j,min,temp: integer; begin  randomize;   {создание массива}  writeln('элементы массива: ');   for i: =1 to n do      begin          a[i]: =random(101)-50;           write (a[i]: 5);       end;   {сортировка массива}  for i: =1 to n-1  do      begin          min: =i;           for j: =i+1 to n do              if a[min]> a[j] then                  min: =j;           temp: =a[i];           a[i]: =a[min];           a[min]: =temp;       end;   writeln();   {вывод массива}  writeln('результат сортировки: ');   for i: =1 to n do      write(a[i]: 5); end.

решение наркоманское, но вышло короче : 3

uses crt; vara,b,c: integer; beginwriteln('введите три числа: '); readln(a,b,c); if (a> b) and (b> c) thenwriteln(a,b,c); if (a> b) and (b> c) then writeln(c,b,a); if (a> c) and (c> b) then writeln(b,c,a); if (b> a) and (a> c) then writeln(c,a,b); if (b> c) and (c> a) then writeln(a,c,b); if (c> a) and (a> b) then writeln(b,a,c); if (c> b) and (b> a) then writeln(a,b,c); end.

48

25

9

Объяснение:

Все значения, которые меньше или равны 68

На картинке аналогичное задание