Дана последовательность, состоящая из n чисел. Найти в ней два самых маленьких числа. На вход программе сначала подается натуральное число 2 меньше = n меньше = 106. Далее следуют n целых чисел, по модулю не превосходящих 30 ...

Дана последовательность, состоящая из n чисел. Найти в ней два самых маленьких числа. На вход программе сначала подается натуральное число 2 <= n <= 106. Далее следуют n целых чисел, по модулю не превосходящих 30 000, — сами члены последовательности. Выведите минимальное число и второе по величине число (оно может совпадать с минимальным). Массив в программе не использовать. ABC Pascal
Гость
Ответ(ы) на вопрос:
Гость
Var a:Array [1..100] of integer; n,min,minz,i,m1:integer; Begin Readln(n); minz:=30001; for i:=1 to n do begin Read(a[i]); if a[i]
Не нашли ответ?
Ответить на вопрос
Похожие вопросы