Опубликовано 12.06.2017 по предмету Информатика от Гость >> <<

Дана последовательность, состоящая из 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]m1:=minz;
a[min]:=30001;
minz:=30001;
for i:=1 to n do if a[i]Writeln(m1, ,minz)
End.