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

Question

Информатика

Савватей

26 июня, 14:45

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

+1

Ответы (1)

Знаете ответ на вопрос?

Максимианыч · Answer 1

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]
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;

end

else writeln ('Элемент не найден') ;

writeln;

end.

Pascal ABC.