Дан массив из 10 положительных чисел. а(n)=( найти максимальный элемент массива и поменять местами с последним

Program max; const first = 1; last = 10; var a: array [first..last] of integer; m, tmp, i: integer; begin writeln('введите через пробел ', last, ' чисел'); for i : = first to last do read(a[i]); m : = first; for i : = first to last do if a[i] > a[m] then m : = i; tmp : = a[last]; a[last] : = a[m]; a[m] : = tmp; writeln('результат: '); for i : = first to last do write(a[i], ' '); readln; end.

Uses crt; const n=10; var a: array[1..n] of integer; i,max,k: integer; begin randomize; for i: =1 to n do begin a[i]: =random(30); writeln(a[i]); end; writeln; max: =0; for i: =1 to n do begin if a[i]> max then begin max: =a[i]; k: =i; end; end; a[k]: =a[k]+a[n]; a[n]: =a[k]-a[n]; a[k]: =a[k]-a[n]; for i: =1 to n do writeln(a[i]); end.

Ппррл       -              пр                        -            лпр ппрл              -                р р                        -        ппрл ррл                  -      пп         -      ппрр п-путешественник р-разбойник л-лодка  

// размер массива в данном примере равен 10 если нужно больше поменяешь сам.

program massiv;

uses crt;

var a: array[1..10] of integer;

        i,c,m: integer;

begin

      clrscr;

      randomize;

      write('исходный массив: ');

        for i: =1 to 10 do

          begin    

              a[i]: =random(101)-50;

              write(a[i]: 3);

          end;  

 

  m: =a[1]; c: =1;

for i: =1 to 10 do 

    if (abs(a[i]))> m then 

            begin

                  m: =a[i];

                  c: =i;  

            end;    

 

  writeln;

  writeln('максимальный по модулю элемент: ',m,'его индекс: ',c);

  readkey;

 

end.