Задание:
Дан массив, упорядочный по убыванию. Найти номер первого элемента, меньше заданного числаa.
Решение:
Var b: array [1… 1000000] of byte; k,a,n: integer; beginread (n,a); for k: =1 to n do beginread (b[k]); if b[k] Знаете другой ответ?
Дан массив, упорядочный по убыванию. Найти номер первого элемента, меньше заданного числаa.
Var b: array [1… 1000000] of byte; k,a,n: integer; beginread (n,a); for k: =1 to n do beginread (b[k]); if b[k] Знаете другой ответ?