UCHEES.RU - помощь студентам и школьникам

Напишите программу, которая сортирует массив по убыванию и ищет в нем все значения,...

В 14:20 поступил вопрос в раздел Информатика, который вызвал затруднения у обучающегося.

Вопрос вызвавший трудности

Напишите программу, которая сортирует массив по убыванию и ищет в нем все значения, равные введенному числу.
PascalABC

Ответ подготовленный экспертами Учись.Ru

Для того чтобы дать полноценный ответ, был привлечен специалист, который хорошо разбирается требуемой тематике "Информатика". Ваш вопрос звучал следующим образом:

Напишите программу, которая сортирует массив по убыванию и ищет в нем все значения, равные введенному числу.
PascalABC

После проведенного совещания с другими специалистами нашего сервиса, мы склонны полагать, что правильный ответ на заданный вами вопрос будет звучать следующим образом:

Const n=20; 
var
  a:array[1..n] of integer;
  i,j,t,x,i1,i2:integer;
begin
  Randomize;
  Writeln('Исходный массив:');
  for i:=1 to n do begin
    a[i]:=Random(21);
    Write(a[i],' ')
  end;
  Writeln;
  for i:=1 to n-1 do
    for j:=1 to n-i do
      if a[j]      begin t:=a[j]; a[j]:=a[j+1]; a[j+1]:=t end;
  Writeln('Отсортированный массив:');
  for i:=1 to n do Write(a[i],' ');
  Writeln;
 write('x = '); readln(x);
 i1:=1; i2:=n;
 repeat
  i:=(i1+i2) div 2;
  if a[i]>x then i1:=(i1+i2) div 2+1;
  if a[i] until (a[i]=x)or(i1>i2);
 if a[i]=x then 
  begin
  writeln('Искомый(ые) номер(а) элемента(ов):');
  while (i>0)and(a[i]=x) do i:=i-1;
  i:=i+1;
  while (i<=n)and(a[i]=x) do begin write(i,' '); i:=i+1; end;<br>  end
  else writeln('Элемент не найден');
 writeln;
end.

Пример:
Исходный массив:
15 4 16 3 7 10 3 1 18 6 18 2 7 11 10 16 2 10 7 12 
Отсортированный массив:
18 18 16 16 15 12 11 10 10 10 7 7 7 6 4 3 3 2 2 1 
x = 10
Искомый(ые) номер(а) элемента(ов):
8 9 10 


-------------------



НЕСКОЛЬКО СЛОВ ОБ АВТОРЕ ЭТОГО ОТВЕТА:

Работы, которые я готовлю для студентов, преподаватели всегда оценивают на отлично. Я занимаюсь написанием студенческих работ уже более 4-х лет. За это время, мне еще ни разу не возвращали выполненную работу на доработку! Если вы желаете заказать у меня помощь оставьте заявку на этом сайте. Ознакомиться с отзывами моих клиентов можно на этой странице.

Некрасова Карина Германовна - автор студенческих работ, заработанная сумма за  прошлый месяц 61 777 рублей. Её работа началась с того, что она просто откликнулась на эту вакансию

ПОМОГАЕМ УЧИТЬСЯ НА ОТЛИЧНО!

Выполняем ученические работы любой сложности на заказ. Гарантируем низкие цены и высокое качество.

СМОТРЕТЬ ЦЕНЫ

Деятельность компании в цифрах:

Зачтено оказывает услуги помощи студентам с 1999 года. За все время деятельности мы выполнили более 400 тысяч работ. Написанные нами работы все были успешно защищены и сданы. К настоящему моменту наши офисы работают в 40 городах.

РАЗДЕЛЫ САЙТА

Ответы на вопросы - в этот раздел попадают вопросы, которые задают нам посетители нашего сайта. Рубрику ведут эксперты различных научных отраслей.

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

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

ЗАДАТЬ ВОПРОС

НОВЫЕ ОТВЕТЫ

ПОХОЖИЕ ВОПРОСЫ