ТутРешу.Ру

Дан массив, упорядочный по убыванию

Задание:

Дан массив, упорядочный по убыванию. Найти номер первого элемента, меньше заданного числа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]



Знаете другой ответ?

Отправить свой ответ