[xxxmaximal]

Задание не доделано(нет вывода) как мне кажется все остальное должно работать и скорее всего ошибки в var

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36

procedure TForm2.Button1Click(Sender: TObject);   var a:array[1..100] of integer;   p,i,n,m,r,l,x:integer; k:1..100; found: boolean;   begin n:=memo1.lines.count;   for i:=0 to (n-1) do a[i]:=strtoint(memo1.lines[i]); i:=1; r:=n; found:=false; while (L<R) and (not found) do m:=(L+R)/2; if a[m]=x then found:=true else if a[m]<x then R:=m+1; else R:=m-1; end; begin if found=true then k:=m; else for i=n dewnte r do a[i+1]:=a[i]; a[R]:=x; end;   end.

[Кодер]

1. Не соответствие типов данных
2. Не объявленные переменные
3. Ошибки в синтаксисе

[M.A.D.M.A.N.]

Вместо dewnte правильно надо писать dniwe

[Bargest]

Алгоритмизация ошибки, о как... Можно диссертацию писать...

[Alegun]

Сообщение от M.A.D.M.A.N.

Вместо dewnte правильно надо писать dniwe

Скорее тогда "е" на "о" в этом слове заменить, больше похоже будет на правду

[M.A.D.M.A.N.]

Сообщение от Alegun

Скорее тогда "е" на "о" в этом слове заменить, больше похоже будет на правду

Дак ему дельфи об этом написала, а он в упор не видит