Fourth, fifth and sixth tasks are done

2025.03.21/06Ex/solve.c

@@ -0,0 +1,30 @@
+#include "solve.h"
+#include <math.h>
+
+#define eps 1e-17
+
+int t6_solve(double *a, int m, int n)
+{
+	int max_j = 0, mn = (n < m) ? n : m;
+	double maximum = 0;
+
+	for (int j = 0; j < mn; j++)
+	{
+		double sum = 0;
+		for (int i = 0; i < m; i++)
+			if (i != j)
+				sum += fabs(a[i*n + j] - a[j*n + j]);
+
+		if ((sum - maximum) > eps || j == 0) { maximum = sum; max_j = j; }
+	}
+
+	for (int l = max_j+1, del_j = 1; l < m*n; l++)
+	{
+		if (l == ((n * del_j) + max_j))
+			del_j++;
+		else 
+			a[l - del_j] = a[l];
+	}
+
+	return max_j + 1;
+}