ассемблерные вставки в Паскале.

[mt92]

В строке перед каждой буквой 'k' которой предшествует буква 'c' вставаить букву 'n'
___
Дан одномерный массив. Определить есть ли в этом массиве положительные, отрицательные числа и нули.
___
помогите пожалуйста

[Stilet]

Я тебе рекомендую заглянуть в генофонд Делфи и подсмотреть как там устроена процедура Insert - она на ассемблере как раз тебе подойдет даже для паскаля, смысл поймешь.
Или собсно подсмотреть как в паскале эта процедура устроена

[mt92]

Stilet, что за генофонд Делфи? Мне надо к завтрашнему дню решить эти две задачи, а я в ассемблере нифига не соображаю

[Stilet]

Генофонд это исходники функций и процедур
Вот тебе примерный код на вторую задачу:

var a:array[1..10] of Shortint;
 q,w,e,i:integer;
begin
 for i:=1 to 10 do begin a[i]:=5-random(10);write(a[i]:5);end;
 asm
  xor ecx,ecx
  mov cx,9
  @q:
   cmp byte [a+ecx], 0
   jg @pl
   jl @mn
   je @zer
  @pl:
   inc [q]
   jmp @aga
  @mn:
   inc [w]
   jmp @aga
  @zer:
   inc [e]
   jmp @aga
  @aga:
  loop @q
 end;
 writeln;
 write(q:3,w:3,e:3);
  { TODO -oUser -cConsole Main : Insert code here }
  readln;
end.

[mt92]

Stilet, спасибо за помощь, но тут много команд которые не проходили. Препод не поверит что это я решал

[Stilet]

Пуффф... А что вы проходили то?