Написать программу, которая сортирует массив ПО УБЫВАНИЮ и ищет в нем элемент, равный X (это число вводится с клавиатуры). Использовать двоичный поиск.

более месяца назад

Просмотров : 262 Ответов : 1

Лучший ответ:

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] 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. Надеюсь на благодарность и лучший ответ.

более месяца назад

Ваш ответ:

Вы можете из нескольких рисунков создать анимацию (или целый мультфильм!). Для этого нарисуйте несколько последовательных кадров и нажмите кнопку Просмотр анимации.