C :

#include<stdio.h>
#include<math.h>
	int main()
{
	int a[10];
	int b,n;
	for(int i=0;i<10;i++)
	scanf("%d",&a[i]);
	b=a[0];
	for(int j=0;j<10;j++)
		if(abs(a[j])<b)
		{
			b=a[j];
			n=j;
		}
	a[n]=a[9];
	a[9]=b;
	for(int k=0;k<10;k++)
	printf("%d ",a[k]);
	return 0;
}

C++ :

#include<iostream>
#include<math.h>
using namespace std;
#define N 10

int main() {
	int a[N], b[N];
	int n, min, t;              // number   tempory
	for (int i=0; i<N; ++i){
		cin >> a[i];
		b[i] = abs(a[i]);
		if(i == 0){
			min = b[i];
			n = i;
		}else if(b[i] < min){
			min = b[i];
			n = i;
		}
	}
	
	t = a[N-1];
	a[N-1] = a[n];
	a[n] = t;
	for(int i=0; i<N; ++i){
		cout << a[i] << " ";
	}

	
	return 0;
}

Pascal :

var a:array[1..10] of longint;
    p,i,t,min:longint;
begin
  read(a[1]);
  min:=abs(a[1]);
  p:=1;
  for i:=2 to 10 do
  begin
    read(a[i]);
    if abs(a[i])<min then
    begin
      min:=abs(a[i]);
      p:=i;
    end;
  end;
  t:=a[p]; a[p]:=a[10]; a[10]:=t;
  for i:=1 to 9 do
    write(a[i],' ');
  writeln(a[10]);
end.