Не считает произведение разных типов данных

for (i=0;i<N;i++) 
 {
  p[i]=1.0*(double)ws[i]/N;
 }

j=0;
 for (i=n-N; i<n; i++)//тут бежим по циклу, с i = 69 - 12 = 57 до i < 69 обращемся к ws и CHAR_S по индексу i - таких индексов нет - неопределенное поведение, дальше смотреть не стал
 {
   ws[j]=w[i];
   CHAR_S[j]=CHAR[i];
   j++;
 }

for (i=0;i<N;i++)
 
 free(p);
 free(ws);

for (i=0;i<N;i++) //а*ббзҐв н*ва®ЇЁЁ д*©«*
        {
            p[i]=1.0*ws[i]/N;//§*Ї®«*Ґ*ЁҐ ¬*ббЁў* ўҐа®пв*®б⥩ Ї®пў«Ґ*Ёп бЁ¬ў®«®ў/
        }
        for (i=0;i<N;i++) //а*ббзҐв н*ва®ЇЁЁ д*©«*
        {
            cout<<p[i]<<endl;//§*Ї®«*Ґ*ЁҐ ¬*ббЁў* ўҐа®пв*®б⥩ Ї®пў«Ґ*Ёп бЁ¬ў®«®ў/
        }

#include <stdio.h>
#include <string.h>
#include <conio.h>
#include <math.h>
#include <stdlib.h>
#include <locale.h>
 
#define n 69 //количество символов в английском алфавите без учета регистра c 32 по 127 код символа  таблицы ASCII
 
void swap (long *w, char *CHAR, long i, long j) //обмен элементов массива
{
    long t;
    char T;
    t=w[i];
    w[i]=w[j];
    w[j]=t;
    T=CHAR[i];
    CHAR[i]=CHAR[j];
    CHAR[j]=T;
}
 
void shake (long *x, char *CHAR) //для упорядочения массива вероятностей по возрастанию используем шейкерную сортировку
{
    long L,R,N,S,j,i;
    L=0;  //левая граница массива
    R=n-1;  //правая граница массива
    N=n-1;    //количество элементов массива (нумереция с 0)
    while (L<R)
    {
        for(j=R; j>L; --j)  //проход справа налево
        {
            if (x[j]<x[j-1])
            {
                swap(x,CHAR,j,j-1);
                N=j;
            }
        }
        L=N;
        for (j=L; j<R; ++j)  //проход слева направо
        {
            if (x[j]>x[j+1])
            {
                swap(x,CHAR,j,j+1);
                N=j;
            }
        }
        R=N;
    }
    for (i=0,S=1; i<n-2; ++i)
    {
        if (x[i]>x[i+1])
            S++;
    }
    if (S>1)
    {
        printf("\n Ошибка, массив не отсортирован, количество серий больше 1 \n");
        getch();
    }
}
 
int main()
{
    FILE  *f;
    char  key, ch,
          fname[50], //массив для хранения имени файла
          CHAR[n],  //массив всех символов английского алфавита
          **C,//матрица для хранения элементарных кодов
          *CHAR_S; //массив для хранения символов встречающихся в файле
    long  i,j,m,N, //переменные счетчики
          w[n], //частоты появления символов в тексте
          *ws,//отсортированный массив частот
          *L; //массив длин кодовых слов
    double *p,//массив вероятностей появления символа в данном тексте
           Hmax=0.0, //максимальная энтропия текста
           H=0.0,//энтропия Шеннона
           s;//контроль правильности расчета массива вероятностей
 
    setlocale(LC_ALL, "Russian");
 
    memset(CHAR,0 ,sizeof(CHAR));
    for(i=0; i<=32; i++) //заполнение массива кодами символов согласно таблице ASCII без учета регистра
    {
        CHAR[i]=32+i;
    }
    for(i=33; i<n; i++)
    {
        CHAR[i]=58+i;
    }
 
    do
    {
        system("cls");//clrscr();
        m=0;  //значения обнуляются для исключения ошибок при открытии другого файла
        N=0; //количество символов в тексте
        memset(w,0.0,sizeof(w));
        memset(fname,0,sizeof(fname));
        printf ("\n Введите наименование файла и путь к нему. \n");
        fgets(fname, sizeof(fname), stdin);
        m=strlen(fname);
        fname[m-1]=0;
        f=fopen(fname,"rt") ;
        if (f==NULL)
        {
            printf("\n Ошибка открытия файла! \n");
            getch();
            exit(0);
        }
        while(!feof(f))
        {
            ch=getc(f);    //считывание символов
            if((ch>=65)&&(ch<=90)) //если заглавная буква то игнорируем регистр
                i=ch-26;
            else
            {
                for (j=0; j<n; j++)
                    if (ch==CHAR[j])
                    {
                        i=j;
                        break;
                    }
            }
            w[i]+=1;
        }
 
        shake(w,CHAR);//сортировка массива частот
 
        for (i=0; i<n; i++)
        {
            if (w[i]!=0)
                N++;
        }
 
        ws=(long *)malloc(N*sizeof(long));
        if (ws==NULL)
        {
            puts("Массив ws не создан!");
            getch();
            return 1;
        }
 
        CHAR_S=(char *)malloc(N*sizeof(char));
        if (CHAR_S==NULL)
        {
            puts("Массив CHAR_S не создан!");
            getch();
            return 1;
        }
        j=0;
        for (i=n-N; i<n; i++)//копирование символов с частотой появления >0 в динамическом массиве
        {
            ws[j]=w[i];
            CHAR_S[j]=CHAR[i];
            j++;
        }
 
        p=(double *)malloc(N*sizeof(double)) ;
        if (p==NULL)
        {
            puts("Массив p не создан!");
            getch();
            return 1;
        }
 
        for (i=0; i<N; i++) //рассчет энтропии файла
        {
            p[i]=1.0*ws[i]/N;//заполнение массива вероятностей появления символов/
        }
 
//освобождение памяти от созданных динамических массивов
        for (i=0; i<N; i++)
            free(p);
        free(ws);
 
        getch();
        fclose(f);
        puts ("\n Открыть другой файл? (Нет=Esc)");
        key=getch();
    }
    while (key!=27);//ESC
}