Предмет: Информатика, автор: nigora9511

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

Ответы

Автор ответа: MaxKrivich
0
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 abs(a[i])>abs(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.
Похожие вопросы
Предмет: Биология, автор: sergei32280