#4.cpp

these are 5 C codes (BorlandC++) realizing the numerical algoriths

#include <stdio.h>;
#include <conio.h>;
#include <stdlib.h>;
#include <alloc.h>;

void main()
{
 int n,i,j,sum=0,kol,**pp;
 clrscr();
 printf("Vvedite razmer massiva\n");   //vvod razmera matricy
 scanf("%d",&n);
 pp=(int **)calloc(n,sizeof(int));       //vydelenije pamjati pod massiv ukazatelej pp
 for(i=0;i<n;i++)
  pp[i]=(int *)calloc(n,sizeof(int));    //vydelenije pamjati pod massiv, na kotoryj ukazyvaet ukazatel` pp[i]
 printf(" Vvedite elementy masiva\n");
 for (i=0;i<n;i++)
  for (j=0;j<n;j++)
   scanf("%d",&pp[i][j]);        //vvod elementov massiva
 printf("\n");
 int sum_st, sum_col;
 for(i=0;i<n;i++)
  sum+=pp[0][i];
 kol=0;
 for(i=0;i<n;i++)
  {
  sum_st=0;
  sum_col=0;
  for(j=0;j<n;j++)
    {
     sum_st+=pp[i][j];
     sum_col+=pp[j][i];

    }
  if (sum_st==sum) kol++;
  if (sum_col==sum) kol++;
  }
 if (kol==2*n)
  printf("\nDannyj massiv javljaetsa volshebnym kvadratom");
 else   printf("\nDannyj massiv ne javljaetsa volshebnym kvadratom");
 for(i=0;i<n;i++)
  free(pp[i]);  //osvobogdenije vydelennoj pamjati
 free(pp);
 getch();
}