Определить сумму наибольшего и второго по

значению наименьшего элементов. Паскаль. Не через массивы.

У меня во внешнем файле есть последовательность из отрицательных и положительных чисел!

1, 2,-3, 4, 5, - 6, 7, 8, - 9, 10!

Наибольшее число 10, наименьшее число - 9, второе по значению наименьшее - 6! Я нашел наименьшее и наибольшее, но не пойму как найти второе по значению наименьшее, помогите)

Question

Информатика

Милана

22 августа, 18:22

Определить сумму наибольшего и второго по

значению наименьшего элементов. Паскаль. Не через массивы.

У меня во внешнем файле есть последовательность из отрицательных и положительных чисел!

1, 2,-3, 4, 5, - 6, 7, 8, - 9, 10!

Наибольшее число 10, наименьшее число - 9, второе по значению наименьшее - 6! Я нашел наименьшее и наибольшее, но не пойму как найти второе по значению наименьшее, помогите)

+3

Ответы (1)

Знаете ответ?

Миша · 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.