Показать сообщение отдельно
  #4  
Старый 07.06.2012, 19:51
Аватар для Bargest
Bargest Bargest вне форума
Профессионал
 
Регистрация: 19.10.2010
Адрес: Москва
Сообщения: 2,390
Версия Delphi: XE3/VS12/FASM
Репутация: 14665
По умолчанию

1) Разумеется отдельным. Сначала массив надо заполнить, а потом с ним работать.
2) Почему P=N - проанализируй.
Код:
p:=0;
...
for i:=1 to n do
begin
  p:=p+1;
end;
N раз P увеличиваем на 1, изначально p = 0.
Следовательно, цикл бесполезен.
__________________
jmp $ ; Happy End!
The Cake Is A Lie.
Ответить с цитированием