Определить, содержит ли массив заданное число

@Student_Skgu · Регистрация: 29.09.2013

Author24 — интернет-сервис помощи студентам

2. Сформировать массив a[1..n], упорядоченный по возрастанию. Определить, содержит ли он заданное число. Если элемент не найден, то вставить его в массив на второе место

@Puporev · 07.10.2014, 13:19

Pascal

uses crt;
const nmax=100;
var a:array[1..nmax+1] of integer;
    n,i,k,l,r,m:integer;
    f:boolean;
begin
randomize;
repeat
write('Размер массива до ',nmax,' n=');
readln(n);
until n in [1..nmax];
a[1]:=random(5);
for i:=2 to n do
a[i]:=a[i-1]+random(5)+1;
writeln('Исходный массив:');
for i:=1 to n do
write(a[i]:4);
writeln;
write('Введите число для поиска k=');
readln(k);
l:=1;
r:=n;
f:=false;
while(l<=r)and not f do
 begin
  m:=(l+r)div 2;
  if k<a[m] then r:=m-1
  else if k>a[m] then l:=m+1
  else f:=true;
 end;
if f then write('Число ',k,' есть в массиве')
else
 begin
  writeln('Числа ',k,' нет в массиве, оно вставляется вторым');
  n:=n+1;
  for i:=n downto 3 do
  a[i]:=a[i-1];
  a[2]:=k;
  for i:=1 to n do
  write(a[i]:4)
 end;
end.

@Student_Skgu 1 / 1 / 0 Регистрация: 29.09.2013 Сообщений: 72
		1
	Определить, содержит ли массив заданное число 07.10.2014, 09:04. Показов 2164. Ответов 1 Метки нет (Все метки) 2. Сформировать массив a[1..n], упорядоченный по возрастанию. Определить, содержит ли он заданное число. Если элемент не найден, то вставить его в массив на второе место 0

	07.10.2014, 13:19

Определить, содержит ли массив заданное число

Решение