найти максимальный по модулю элемент массива X(N) и поставить его первым.

ок.

ок делаю

ты пока увеличь пиры

как удалить?

yfgbcfk

написал

жду

короче все

блин может просто поновой написать ?

я удалить не могу

Var a:array of Integer;    n,i,max,ind:Integer;
begin 
Readln(n); 
 SetLength(a,n); 
for i:=0 to Length(a) do 
  readln(a[i]); 
 max:=a[0];
  ind:=0;
  for i:=0 to Length(a) do
   if абс(a[i])gt;абс(max) then
   begin   
 max:=a[i]; 
   ind:=i;   
end; 
n:=a[0]; 
 a[0]:=max;
  a[ind]:=n; 
 for i:=0 to Length(a) do 
  write(a[i]:3); 
readln;
end.