delphi - .1) Дан целочисленный вектор А(n). Поменять местами первый и максимальный элементы вектора.

[ninel_ka]

.1) Дан целочисленный вектор А(n). Поменять местами первый и максимальный элементы вектора.
помогите с кодом пожалуйста

[Аватар]

А где код, в котором помочь нужно?

[Вадим Мошев]

Сообщение от Аватар

А где код, в котором помочь нужно?

Ты его должен написать и предоставить на безвозмездной основе

[newerow1989]

const n=10;
var a:array[1..10] of integer;
    i,im,z:integer;
begin
   Randomize;
   For i:=1 to n do
   begin
      a[i]:=Random(21);
      Write(a[i]:2,'  ');
   end;
   Writeln;
   Writeln;
   im:=1;
   For i:=2 to n do
      If a[im]<a[i] then
         im:=i;
   z:=a[im];
   a[im]:=a[1];
   a[1]:=z;
   For i:=1 to n do
      Write(a[i]:2,'  ');
   Writeln;
   Readln;
end.

[digitalis]

Можно малость улучшить:

   if im>1 then
      begin
       z:=a[im];
       a[im]:=a[1];
       a[1]:= z
     end;