Задать вопрос
21 ноября, 18:34

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

+4
Ответы (2)
  1. 21 ноября, 22:06
    0
    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.
  2. 21 ноября, 22:23
    0
    Решение наркоманское, но вышло короче: 3

    Uses CRT;

    Var

    a, b, c:integer;

    begin

    writeln ('Введите три числа: ') ; readln (a, b, c) ;

    if (a>b) and (b>c) then

    writeln (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.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «даны три целых числа. вывести их в порядке возрастания. паскаль. ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы