Поменять местами последний положительный и второй элемент массива.

uses crt;
const n=10;
var a:array[1..n] of real;
    i,j:byte;
    b:real;
begin
clrscr;
  for i:=1 to n do readln(a[i]);
  b:=a[2];
  for i:=1 to n do
   if a[i]>0 then j:=i;
  a[2]:=a[j];
  a[j]:=b;
  for i:=1 to n do if i mod 2=0 then a[i]:=a[i]/a[1];
  for i:=1 to n do write(a[i]:0:2,' ');
readln;
end.

Uses crt;
Var
  a: array[1..100] of integer;
  i,n: byte;
 
Begin
  Clrscr;
  Randomize;
  Write('введите количество элементов: ');
  Readln(n);
  For i:=1 to n do
    begin
      a[i]:=random(101)-50;
      Write(a[i],' ');
    end;
  Writeln;
 
  For i:=n downto 1 do
    If a[i]>0 then break;
  a[2]:=a[2]+a[i];
  a[i]:=a[2]-a[i];
  a[2]:=a[2]-a[i];
 
  For i:=1 to n div 2 do
    a[i*2]:=a[i*2] div a[1];
 
  For i:=1 to n do write(a[i],' ');
  Readkey
End.

program p1;
        uses crt;
        const
             size=10;
        var
           m:array[1..size] of integer;
           buff:array[1..size] of real;
           i,buf:integer;
        begin
             clrscr;
            randomize;
            for i:=1 to size do
                m[i]:=random(20)-10;
            for i:=1 to size do
                write(m[i],' ');
            for i:=size downto 1 do
                begin
                     if m[i]>0 then
                        begin
                          buf:=m[2];
                          m[2]:=m[i];
                          m[i]:=buf;
                          break;
                        end;
                end;
            buf:=m[1];
            for i:=1 to size do
                begin
                     if (i mod 2)=0 then
                             buff[i]:=m[i]/buf
                     else
                              buff[i]:=m[i];
                end;
            writeln;
            for i:=1 to size do
                write(m[i],' ');
            writeln;
            for i:=1 to size do
                write(buff[i]:3:3,' ');
        end.