Графы.Матрица смежности.Ребра связности.

#include <stdio.h>
#include <conio.h>
 
#define maxn 10     // максимальное число вершин в графе
 
int n;
int count;
int a[maxn][maxn];          // матрица смежности
int str1[maxn][maxn];       
int Mark[maxn];             // метки вершин графа
int s[maxn];                // сумма по столбцам
int str[maxn];
int rvut[maxn];
 
void Component (int x,int count)
// функция прохождения одной компоненты связности
{
    int i,v;
    Mark[x]=count;          // вершина x помечается как пройденная вершина
    for(i=0;i<n;i++)        
    {
       if (a[x][i]==1)      // есть ребро из x в i
          if(Mark[i]==0)    // еще не пройденной вершины
             Component(i,count);
    }
}
 
void STRONGL_Comp2(int n)
// функция поиска не пройденных вершин графа, т.е. новой компоненты связности
{
    int v=0;
    int count=0;
    for(v=0;v<n;v++)        // сначала все вершины графа
    {
        Mark[v]=0;          // помечаем как не пройденные
    } 
 
    count=0;                // номер компоненты связности
 
    for(v=0;v<n;v++)        // выбор очередной не пройденной вершины
        if (Mark[v]==0)
            {
               count=count+1;   // увеличение компонент связности
               Component(v,count);
            }       
}
 
 
 
void main(void)
{
    FILE *p,*f;
    int i,j,k,mm,ii,jj;
    int *min;   // номер минимального элемента в массиве
    int *uk;    // указатель на элемент массива
    int summark,summark2;
    
    p=fopen("matrsmeg.txt","r");
    if(fscanf(p,"%d",&n)!=EOF)
    {
        printf("%d",n);     // ввод числа вершин
        printf("\n");       
        a[0][0]=0;
        for(i=0;i<n;i++)
           for(j=0;j<n;j++)
              fscanf(p,"%d",&a[i][j]);
    }       
    for(i=0;i<n;i++)
       Mark[i]=0;      // помечаем вершины как необработанные
    summark=0;
    summark2=0;
    fclose(p);
    f=fopen("component.txt","w");
    STRONGL_Comp2(n);   // проход графа в глубину, поиск компонент связности
    for(i=0;i<n;i++)
       summark=summark+ Mark[i];      // суммируем компоненты связности после первого прохода
    printf ("Summa komponent posle pervogo prochoda: %d\n",summark  );
    
    for(i=0;i<n;i++)    // очистим массив s
          s[i]=0;
 
    for(j=0;j<n;j++)    // для каждого столбца суммируем элементы
       for(i=0;i<n;i++)
          s[j]=s[j]+a[i][j];
 
    // Поиск минимального элемента в массиве s
    min=s;          // пусть первый элемент минимальный
    uk=s+1;         // p содержит адрес второго элемента
    // сравниваем оставшиеся элементы массива с минимальным
    for(k=1;k<n;k++)
    {
        if (*uk<*min) min=uk;
        uk++;       // к следующему элементу
    }
    printf ("Min element massiva: %d\n",*min);
    printf ("Nomer stolbca c min elementom: %d\n",k-1);
 
    for(i=0;i<n;i++)
       for(j=0;j<n;j++)
        if ((a[i][j]==1)&& (j==k-1 ||i==k-1)) 
        {
            printf ("REBRO: %d%d\n",j,i);
            str[i]=a[i][j]; // запоминаем в массиве str
            a[i][j]=0;    
        }
    
    STRONGL_Comp2(n);   // проход графа в глубину, поиск компонент связности
    summark2=0;
    for(i=0;i<n;i++)
       summark2=summark2+ Mark[i];  // суммируем компоненты связности после второго прохода
    printf ("Summa komponent posle vtorogo prochoda: %d\n",summark2);
    if (summark2>summark)   // количество компонентов связности увеличилось
        printf ("Rebra svyaznosti vychodyat iz vershiny: %d\n",k-1);
    
    for(i=0;i<n;i++)
       for(j=0;j<n;j++)
        if (j==k-1 || i==k-1) 
        {
            a[i][j]=str[i]; // возвращаем из массива str
        }
 
    
 
    for(i=0;i<n;i++)
       fprintf(f,"%d",i);
    fprintf(f,"\n");
    
    fprintf(f,"\n");
    for(i=0;i<n;i++)
       fprintf(f,"%d",Mark[i]);
    fclose(f);
    getch();
}