Дана последовательность, состоящая из 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]
Не нашли ответ?
Похожие вопросы