Задать вопрос
26 мая, 03:54

Помогите с прогой на паскале

Ввести последовательность случайным образом N=12. Упорядочить последовательность по убыванию и вывести на экран два наибольших четных и наименьших нечетных числа.

+1
Ответы (1)
  1. 26 мая, 05:34
    0
    Const n = 12;

    var temp:Integer;

    var ar:array[1 ... n] of Integer;

    begin

    for var i: = 1 to n do

    Read (ar[i]) ;

    for var a: = 1 to n do

    for var b: = 1 to n do

    if (b
    begin

    temp: = ar[b];

    ar[b]: = ar[b+1];

    ar[b+1]: = temp;

    end;

    Writeln ('Два наибольших '+ar[1] + ' и '+ar[2]+'.') ;

    Writeln ('Два наименьших '+ar[n-1]+' и '+ar[n]+'.') ;

    end.

    Жмякаем 'Лучший'
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Помогите с прогой на паскале Ввести последовательность случайным образом N=12. Упорядочить последовательность по убыванию и вывести на ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы
Похожие вопросы по информатике
Помогите с прогой. Паскаль. Ввести массив, ввести кол-во элементов в массиве (не через рандом). Ввести число. Найти сколько элементов равны этому числу. (ввод массива и кол-ва эл. Через процедуры)
Ответы (1)
Паскаль. 1. вывести на экран все четные числа от 1 до n. 2. вывести на экран все трехзначные числа. 3. вывести на экран четырехзначные числа оканчивающийся на 7. 4. вывести на экран все трехзначные и двухзначные числа сумма цифр которых равна девяти.
Ответы (1)
1) Ввести число. Если оно неотрицательно (больше 0), вычесть из него 10, иначе - прибавить к нему 10 2) Ввести 2 числа.
Ответы (1)
Напишите на языке C++! 1) Ввести число. Если оно неотрицательно (больше 0), вычесть из него 10, иначе - прибавить к нему 10 2) Ввести 2 числа.
Ответы (1)
1. Пользователем вводится целое число. Вывести на экран последовательность целых чисел от единицы до этого числа. 2. Вывести на экран 10 строк, содержащие символ *, причем количество * в каждой строке должно быть равно номеру строки. 3.
Ответы (1)