Написать программу, которая сортирует массив ПО УБЫВАНИЮ и ищет в нем элемент, равный X (это число вводится с клавиатуры). Использовать двоичный поиск.
Написать программу, которая сортирует массив ПО УБЫВАНИЮ и ищет в нем элемент, равный X (это число вводится с клавиатуры). Использовать двоичный поиск.
Гость
Ответ(ы) на вопрос:
Гостьuses crt;
var a, b, c, n, i, j :integer;
s :array [1..10000] of integer;
begin
clrscr;
writeln ('Vvedite razmer masiva');
read (n);
writeln ('Vvedite chislo X');
read (a);
for i:=1 to n do
begin
writeln ('Vvedit s[', i, '] element');
read (s[i]);
end;
for i:=1 to n do
for j:=1 to n-1 do
if s[j]0 then writeln ('3adanoe chislo prisytstvyet') else writeln('3adanoe chislo otsytstvyet');
end.
P.S. Надеюсь на благодарность и лучший ответ.
Не нашли ответ?
Похожие вопросы