Определить сумму наибольшего и второго по
значению наименьшего элементов. Паскаль. Не через массивы.
У меня во внешнем файле есть последовательность из отрицательных и положительных чисел!
1, 2,-3, 4, 5, -6, 7, 8, -9, 10!
Наибольшее число 10, наименьшее число -9, второе по значению наименьшее -6! Я нашел наименьшее и наибольшее, но не пойму как найти второе по значению наименьшее, помогите)

1
создай tmp с дубликатом последовательности, в котором наименьшее будет заменено на наибольшее и в новой последовательности наименьшее окажется вторым по значению наименьшим
спасибо, попробую

Ответы и объяснения

Лучший Ответ!
2014-04-05T10:38:58+00:00

Это Проверенный ответ

×
Проверенные ответы содержат надёжную, заслуживающую доверия информацию, оценённую командой экспертов. На "Знаниях" вы найдёте миллионы ответов, правильность которых подтвердили активные участники сообщества, но Проверенные ответы - это лучшие из лучших.
Var
    max, min, prev_min, n: integer;

begin
    max := -10000;
    min := 10000;
    prev_min := 10000;
    repeat
        read(n);
        if n > max then begin
            max := n;
        end;
        if n < min then begin
            prev_min := min;
            min := n;
        end;
    until n = 0;
   
    writeln(max, ' ', prev_min);
end.

ничего не пойму, одни отступы на след строку да &ft..
ты с телефона читаешь чтоли? у меня нормальным текстом отображается
http://pastebin.com/18PEbbX8
Комментарий удален
Комментарий удален