Используя бинарный поиск, найти порядковый номер элемента, который равен разност...

August 2022 1 5 Report

Используя бинарный поиск, найти порядковый номер элемента, который равен разности первого элемента массива с последним.в динамическом массиве очень срочно через паскаль

Answers & Comments

petyaGavrikov

Verified answer

Var a:array of integer;
n,i,p,i1,i2: integer;
begin
write('n = ');
readln(n);
SetLength(a,n);
Randomize;
a[0]:=random(50)+100;
write(a[0]:4);
for i:=1 to n-1 do
begin
a[i]:=a[i-1]-random(11);
write(a[i]:4);
end;
writeln;
p:=a[0]-a[n-1];
writeln('p = ',p);
i1:=0; i2:=n-1;
repeat
i:=(i1+i2) div 2;
if a[i]>p then i1:=i1+1;
if a[i]<p then i2:=i2-1;
until (a[i]=p)or(i1>=i2);
if a[i]=p
then writeln('i = ',i)
else writeln('Искомого элемента нет');
end.

Пример:
n = 20
142 139 135 129 120 120 120 113 107 106 104 99 89 88 81 72 71 70 60 54
p = 88
i = 13

2 votes Thanks 0

Answers & Comments

Verified answer

ispolzuya obmennuyu sortirovku otsortirovat massiv po ubyvaniyu sdelat v dinamid040c80948f5b7d841a05b58a1039cf3 23398

ispolzuya obmennuyu sortirovku otsortirovat massiv po ubyvaniyu sdelat v dinami

dan massiv r m m perestavit stroku s minimalnym elementom na glavnoj diago

ispolzuya linejnyj odnosvyaznyj spisok najti vvedyonnoe s klaviatury chislo udalit9025d33f9150b77a25e90600aa994197 73780

рекомендуемые вопросы

Helpful Links

Helpful Social