спасибо за помощь!!!!!!!
for m:=i to n - 1 do { <--- Иначе выскочишь за пределы массива }
begin
a[m]:=a[m+1]; { <--- Тебе нужно работать в цикле по M, не по I }
f[m]:=f[m+1];
end;
P.S. Я так понимаю, сортировку еще не реализовывала?
Цитата(volvo @ 12.11.2006 21:49) 
for m:=i to n - 1 do { <--- Иначе выскочишь за пределы массива }
begin
a[m]:=a[m+1]; { <--- Тебе нужно работать в цикле по M, не по I }
f[m]:=f[m+1];
end;
P.S. Я так понимаю, сортировку еще не реализовывала?
правильно понимаешь
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.