Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
Урок 6. Задача 9 (1533). Два самых маленьких числа
{ Урок 6 задача 10 (1533) Дана последовательность, состоящая из n чисел. Найти в ней два самых маленьких числа. Входные данные На вход программе сначала подается натуральное число n<=10^6. Далее следуют n целых чисел, по модулю не превосходящих 30 000, — сами члены последовательности. Выходные данные Выведите минимальное число и второе по величине число (оно может совпадать с минимальным). Массив в программе не использовать. Примеры входные данные 3 3 1 2 выходные данные 1 2 входные данные 4 1 1 2 1 выходные данные 1 1 } program a1533; var n, i, num, min1, min2, temp : integer; begin readln (n); min1 := 30000; min2 := 30000; for i := 1 to n do begin // readln(num); num := 10+random(101); write(num:3); if num <= min1 then begin min2 := min1; min1 := num; end else if num < min2 then min2 := num; end; writeln; writeln(min1, ' ', min2); end.
run
|
edit
|
history
|
help
0
12345
Task 16 (OGE)-1
07 Ariketa
2. Proba
Ipis unazad ulancana lista
Matrix
лет-год-года
Урок 3 задача 3
nomer9
pi