БИРЖА-2017Ограничение медли 1 секунда Ограничение памяти

БИРЖА-2017
Ограничение времени 1 секунда
Ограничение памяти 64Mb
Ввод стандартный ввод или burse.in
Вывод стандартный вывод или burse.out
Иван страсть как любит играть в разные забавы Одной из любимейших игр Ивана является настольная забава Биржа-2017 Из ее наименования понятно, что сущность забавы сводится к покупке и продаже чего-или за игровые средства - бумажные банкноты с нанесенными на их номиналами (целые положительные числа). Как-то раз во время забавы со собственной младшей сестрой Изольдой Иван увидел, что сестра мухлюет, но делает это как бы не умышленно, а в силу своего возраста - она только-только окончила первый класс. В случаях, когда сестренке не хватало денег для чего-либо, она брала две игрушечные купюры и склеивала их так. что выходила одна купюра очень вероятного плюсы Но Ивана никак не злили такие махинации с валютными средствами. Он как любящий старший брат, был рад провести время со своей сестренкой.

Формат ввода
В первой строке подается естественное число N (2 lt;= М lt;= 500) - количество купюр которым/ располагала Изольда. В последующих N строчках подаются натуральные числа, не превосходящие 100000 - номиналы каждой из купюр Изольды.
Формат вывода
Вывести одно число - максимально вероятный номинал одной склеенной банкноты.

Задать свой вопрос
Степан Горинкин
не понятно как "склеивались" эти банкноты.
Денис Добромиров
если их типа писать поочередно, то наибоольшим склеенным будет максимум и предмаксимум
1 ответ
Const
    handsfree = false;

var
    a: array[1..500] of integer;
    i, n, j: integer;
    temp: integer;

begin
    ввод массива
    if handsfree then
        n := random(500) + 1
    else begin
        write('n = ');
        readln(n);
    end;
    
    writeln('Данные массива:');
    for i := 1 to n do
    begin
        if handsfree then begin
            a[i] := random(100000);
            write(a[i], ' ');
        end
        else readln(a[i]);
    end;
    writeln();
    
    сортировочка пузыречком по убыванию
    for i := 1 to n - 1 do
        for j := i + 1 to n do
            if A[i] lt; A[j] then begin
                temp := A[i];
                A[i] := A[j];
                A[j] := temp;
            end;
    
    вывод массива
    writeln('Вывод массива:');
    for i := 1 to n do
        write(a[i], ' ');
    writeln();
    
    writeln('Наивеличайшая купюра = ', a[1], a[2]);
end.

Вывод (при handfree = true)
Данные массива:
14326 83146 41199 15524 45803 60252 17062 77469 66347 48671 98328 61915 65607 88427 62486 50724 86714 97620 39326 61552 6654 93608 22718 77352 63933 29408 99498 63255 23230 7413 67602 67278 76628 87483 71421 12343 30770
Вывод массива:
99498 98328 97620 93608 88427 87483 86714 83146 77469 77352 76628 71421 67602 67278 66347 65607 63933 63255 62486 61915 61552 60252 50724 48671 45803 41199 39326 30770 29408 23230 22718 17062 15524 14326 12343 7413 6654
Наибольшая купюра = 9949898328

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт