ANTICHAT — форум по информационной безопасности, OSINT и технологиям

#include <stdbool.h>
#include <stdio.h>
#include <stdlib.h>

void fill_matrix(int* matrix, int m, int n);
void print_matrix(int* matrix, int m, int n);
void sort_matrix(int* matrix, int m, int n);

int main(int argc, char** argv)
{
	int m, n;
	(void) printf("Введите количество строк: ");
	(void) scanf("%d", &m);
	(void) printf("Введите количество столбцов: ");
	(void) scanf("%d", &n);
	
	int * matrix = malloc(m * n * sizeof(int));
	
	fill_matrix(matrix,m,n);
	
	print_matrix(matrix,m,n);
	
	(void) printf("Сортировка\n");
	
	sort_matrix(matrix,m,n);
	
	print_matrix(matrix,m,n);
	
	return 0;
}

void fill_matrix(int* matrix, int m, int n){
	for(int i = 0; i < m; i++){
		for(int j = 0; j < n; j++){
			int r = rand() % 51;
			matrix[m*i + j] = (r % 2)?-r:r;
		}
	}
}

void print_matrix(int* matrix, int m, int n){
	(void) printf("\nМатрица [%d,%d]\n", m, n);
	
	for(int i = 0; i < m; i++){
		for(int j = 0; j < n; j++){
			(void) printf("%3d ", matrix[m*i + j]);
		}
		(void) printf("\n");
	}
	(void) printf("\n");
}

void sort_matrix(int* matrix, int m, int n){
	for(int i = 0; i < m; i++){
		bool cond = true;
		while(cond) {
			cond = false;
			for(int j = 0; j < n - 1; j++){
				if(i % 2){
					if(matrix[m*i + j] < matrix[m*i + j + 1])
						cond = true;
				} else {
					if(matrix[m*i + j] > matrix[m*i + j + 1])
						cond = true;
				}
				
				if(cond){
					int swp = matrix[m*i + j];
					matrix[m*i + j] = matrix[m*i + j + 1];
					matrix[m*i + j + 1] = swp;
				}
			}
		}
	}
}

function proverk (a:array of integer):integer;
  const seqLength = 3;
  var
    i:integer;
    counter: integer;
  begin
    counter := 0;
    for i:=0 to length(a) do
      if a[i] mod 2 <> 0 then
      begin
        counter := counter + 1;
        if(counter=seqLength) then
          begin
          proverk := i- seqLength + 1;
          exit;
          end
      end
      else
        counter := 0;

      proverk:=0;
  end;

1
12
123
...

a
ab
abc
...

1;a
1;ab
1;abc
12;a
12;ab
12;abc
123;a
123;ab
123;abc
...