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

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

+3
Ответы (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.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «даны три целых числа. вывести их в порядке возрастания. паскаль. ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы
Похожие вопросы по информатике
Ввести слово и число раз (Ввод; паскаль, 3). Вывести это слово так: паскаль паскаль паскаль паскаль паскаль паскаль
Ответы (1)
Задача 1 - Дано целое число. Если оно положительное, вывести " Число положительное ", если отрицательное вывести "Число отрицательное ", если равно 0 - "Число равно нулю" задача 2 - дано целое число.
Ответы (1)
Паскаль. 1. вывести на экран все четные числа от 1 до n. 2. вывести на экран все трехзначные числа. 3. вывести на экран четырехзначные числа оканчивающийся на 7. 4. вывести на экран все трехзначные и двухзначные числа сумма цифр которых равна девяти.
Ответы (1)
1. Пользователем вводится целое число. Вывести на экран последовательность целых чисел от единицы до этого числа. 2. Вывести на экран 10 строк, содержащие символ *, причем количество * в каждой строке должно быть равно номеру строки. 3.
Ответы (1)
Помгите! Программа Паскаль Вопрос 1. Функция служебного слова Var. Вопрос 2. С какими числами можно работать в программе Паскаль? Вопрос 3. Оператор ввода. Как он записывается в Паскаль? Вопрос 4. Функция служебного слова Const. Вопрос 5.
Ответы (1)