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