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