void scalaj(unsigned long int l, unsigned long int s, unsigned long int p, float *a) {
	unsigned long int i, j, m, k;
	float z[n + 1];
	i = l;
	j = s;
	m = i;
	do {
		if (a[i] <= a[j]) {
			z[m] = a[i];
			i++;
		}
		else {
			z[m] = a[j];
			j++;
		}
		m++;
	} while (i < s && j <= p);

	if (i < s) {
		k = p;
		for (unsigned long int j = s - 1; i <= j; j--) {
			a[k] = a[j];
			k--;
		}
	}

	for (unsigned long int i = l; i <= m - 1; i++) {
		a[i] = z[i];
	}
}

void sort_scal(unsigned long int d, unsigned long int g, float *a) {
	unsigned long int s;
	if (d < g) {
		s = (d + g) / 2;
		sort_scal(d, s, a);
		sort_scal(s + 1, g, a);
		scalaj(d, s + 1, g, a);
	}
}