Определить сумму наибольшего и второго по
значению наименьшего элементов. Паскаль. Не через массивы.
У меня во внешнем файле есть последовательность из отрицательных и положительных чисел!
1, 2,-3, 4, 5, -6, 7, 8, -9, 10!
Наибольшее число 10, наименьшее число -9, второе по значению наименьшее -6! Я нашел наименьшее и наибольшее, но не пойму как найти второе по значению наименьшее, помогите)
значению наименьшего элементов. Паскаль. Не через массивы.
У меня во внешнем файле есть последовательность из отрицательных и положительных чисел!
1, 2,-3, 4, 5, -6, 7, 8, -9, 10!
Наибольшее число 10, наименьшее число -9, второе по значению наименьшее -6! Я нашел наименьшее и наибольшее, но не пойму как найти второе по значению наименьшее, помогите)
More Questions From This User See All
Answers & Comments
Verified answer
Varmax, 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.
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.