Определить сумму наибольшего и второго по значению наименьшего элементов. Паскаль. Не...

Question

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

Comments

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

---

спасибо, попробую

Answer 1

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.

Comments

смотри, если вначале стоит минимальное, то оно ищет число 2 до минимального, а после минимального может быть еще меньше, и оно его не находит...

---

типа :1,2,3,-345,6,8,9,-17

---

максимальное 9, минимальное -345 и оно найдет 1, а должно найти -17

---

хм

---

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;
if (prev_min > n) and (n > min) then
prev_min := n;
until n = 0;

writeln(max, ' ', prev_min);
end.

---

ничего не пойму, одни отступы на след строку да &ft..

---

ты с телефона читаешь чтоли? у меня нормальным текстом отображается

---

http://pastebin.com/18PEbbX8