Помогите, пожалуйста!))

Помогите, пожалуйста!))

Задать свой вопрос
Valerija Modenko
Ахахахах, а что нельзя?))
Бигиашвили Кира
Желаю ссылку на таковой сайт :((
Андрюша Зиауетдинов
Хватит умничать, помогите лучше ;(
Аделина Патерская
спасибо за совет)
1 ответ
Const n=20;
var a:array[1..n] of integer;
i,j,t,i1,i2,x:integer;
begin
Randomize;
Writeln('Начальный массив:');
for i:=1 to n do begin
  a[i]:=Random(15);
  Write(a[i],' ')
end;
Writeln;
for i:=1 to n-1 do
  for j:=1 to n-i do
    if a[j]gt;a[j+1] then
    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]lt;x then i1:=(i1+i2) div 2+1;
if a[i]gt;x then i2:=(i1+i2) div 2-1;
until (a[i]=x)or(i1gt;i2);
if a[i]=x then 
 begin
 while (igt;0)and(a[i]=x) do i:=i-1;
 i:=i+1; j:=i;
 while (ilt;=n)and(a[i]=x) do i:=i+1;
 writeln('Число ',x,' встречается ',i-j,' раз(а)');
 end
 else writeln('Число ',x,' не встречается');
writeln;
end.

Пример:
Начальный массив:
4 13 5 3 14 12 12 8 9 6 3 2 4 4 14 1 12 2 5 9 
Отсортированный массив:
1 2 2 3 3 4 4 4 5 5 6 8 9 9 12 12 12 13 14 14 
x = 5
Число 5 встречается 2 раз(а)
Визбор Наталья
Спасибо огромное!
Таисия Ковалюк
Пожалуйста.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт