В массиве четное количество элементов поменять местами в массиве 1 с последним 2 с предпоследним и т.д

  • Const NN=50;
    var
    a:array [1..NN] of integer;
    i,n,k:integer;
    begin
      write('Введите кол-во эл-тов массива: ');
      readln(n);
      for i:= 1 to n do
      begin
        a[i]:=random(50);
        write(a[i],' ');
      end;
      writeln;
      for i:= 1 to n div 2 do
      begin
        k:=a[i];
        a[i]:=a[n-i+1];
        a[n-i+1]:=k;
      end;
      for i:= 1 to n do write(a[i],' ');
    end.