Написать программу, которая сортирует массив по убыванию и ищет в нем элемент, равный 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]< s[j+1] then              begin                  b: =s[j];                   s[j]: =s[j+1];                   s[j+1]: =b;               end;     for i: =1 to n do      begin          write (s[i], ' ');           if s[i]=a then inc (c);       end; writeln; if c> 0 then writeln ('3adanoe chislo prisytstvyet') else writeln('3adanoe chislo otsytstvyet'); end. p.s. надеюсь на и лучший ответ.

Var a: array[1..3,1..4] of integer;     i,j,s: integer; begin   for i: =1 to 3 do   begin       write('строка ',i,': ');       for j: =1 to 4 do read(a[i,j]);   end; // вывод массива на экран     writeln('массив а по строкам: ');   for i: =1 to 3 do   begin     for j: =1 to 4 do write(a[i,j]: 4);     writeln;   end; // суммы элементов по строкам   for i: =1 to 3 do   begin     s: =0;     for j: =1 to 4 do s: =s+a[i,j];     writeln('сумма элементов строки ',i,': ',s);   end; end.ввод - выводстрока 1: 10 11 12 13 строка 2: 14 15 16 17 строка 3: 18 19 20 21 массив а по строкам:   10   11   12   13   14   15   16   17   18   19   20   21 сумма элементов строки 1: 46 сумма элементов строки 2: 62 сумма элементов строки 3: 78

Это система скрытой реализации. когда можно что-то подать на вход, и что-то получить на выход, но вот конкретно как преобразуются входящие данные в выходящие данные не известно.  вся техника по сути и есть черный ящик.  нажимаешь кнопочку на телевизоре - переключается канал, но как это происходит - не известно, если ты конечно не делал этот телевизор.  если надписи на кнопках будут на не понятном языке и инструкция на понятном языке отсутствует, то такой прибор будет класическим случаем черного ящика.