dim a() as integer
dim i as integer
private sub form_load()
i=9'9+1 членов массива
redim a(i)'выделили память
for i=0 to 9
a(i)=i'загнали в каждый член масива чтонибудь
form.print a(i)'и выкинули прямо на форму
next i
end sub

void main()
{
bool arr[7];
int j=0;
for (int i=0;i<8;i++)
{
   cin>>arr[i];//можно еще добавить проверку соответствия типов вводимых данных
   //или автопривение типа к необходимому(если 0 считаем что фолс иначе тру)
   if (!(i%2)&&(i>1)&&(!arr[i])) {j++;}//если i делится без остатка на 2, больше единицы(чтоб исключить нулевой член), и i-ый член массива = false
}
cout<<\n<<j<<" элементов соответствуют условию";
}

#include <stdio.h>
#include <stdlib.h>
#include <iostream>
#include <conio.h>
#define ROW 4
#define COL 3
#define N 3

using namespace std;

void mulmatr(int A[ROW][N], int B[N][COL], int C[ROW][COL])
{
    for(int i = 0; i < ROW; i++)
        for(int j = 0; j < COL; j++)
        {
            C[i][j] = 0;
            for(int k = 0; k < N; k++)
                C[i][j] += (A[i][k] * B[k][j]);
        }
}
int main()
{
 
     getch();
     return 0;
}

#include <iostream>
using namespace std;

int ROW=0,N=0,COL=0,i,j;
int* matrix1,matrix2,matrix3;

int* mulmatr(int* matrix1, int* matrix2,int ROW,int N,int COL)
{
     int* result;
     result=new int[ROW*COL];
     for(i = 0; i < ROW; i++)
     {
        for(j = 0; j < COL; j++)
        {
            result[i*COL+j] = 0;
            for(int k = 0; k < N; k++)
            {
                result[i*COL+j] += (matrix1[i*ROW+k] * matrix2[k*N+j]);
            }
        }
     }
     return result;
}

void main()
{
     cout<<"\nEnter N of ROWS of 1st matrix:";
     cin>>ROW;
     cout<<"\nN COLUMNS of 1st matrix(it's also N rows for 2d matrix):";
     cin>>N;
     cout<<"\nAnd COLUMNS of 2d matrix:";
     cin>>COL;
     //выделяем память под матрицы
     int* matrix1;
     int* matrix2;
     int* matrix3;
     matrix1=new int[ROW*N];matrix2=new int[N*COL];matrix3=new int[ROW*COL];
     //и заполняем исходных две
     cout<<"\nNow please enter values of 1st matrix elements(enter after each value):\n";
     for (j=0;j<N;j++)
     {
           for(i=0;i<ROW;i++)
           {
                  cin>>matrix1[j*ROW+i];cout<<"  ";//пару пробелов перед 
                   //очередным эл. матрицы в той же
                   // строке,т.е. к примеру строка получится так 3  5  9  13
           }
           cout<<"\n";//новая строка матрицы
      }
     cout<<"\nNow please enter values of 2d matrix elements(enter after each value):\n";
     for (j=0;j<N;j++)
     {
           for(i=0;i<COL;i++)
           {
                  cin>>matrix2[j*N+i];cout<<"  ";
           }
           cout<<"\n";
      }
     matrix3=mulmatr(matrix1,matrix2,ROW,N,COL);
     cout<<"Result matrix is:\n";
     for (j=0;j<COL;j++)
     {
           for(i=0;i<ROW;i++)
           {
                  cout<<matrix3[j*ROW+i]<<"  ";
           }
           cout<<"\n";
      }
     cin>>i;//вместо getch чтоб не подключать библиотеки лишние
}

int maxnumber(int* arr,int size)
{
    int maxnum=0;int max=arr[0];
    for (i=1;i<size;i++)
    {
         if(arr[i]>max)
         {
               max=arr[i];
               maxnum=i;
         }
    }
    return maxnum;
}

int* mul12(int* arr,int size)//для записи произведения кучи инт32 может не хватить ни инт32 ни инт64,
//потому результат запихнем в массив,где первый член - скока у нас ушло памяти(двойныхслов)
//а дальше - собсно результат
{
     int el1=0,el2=0,i=0;
     while(arr[i]!=0)
     {i++;}
     el1=i;
     while(arr[i]!=0)
     {i++;}
     el2=i;
     //нашли концы диапазона
     //теперь посчитать бы место под массивчег с резалтом,
     //для этого нужен логарифм по основанию 2 причем целочисленый,см ф-цию log2(int i) ниже
     int size=32;//по дефолту надеемся поместится в инт32
     for(i=el1+1;i<el2;i++)
     {
           size+=log2(arr[i]);
      }
      //округлим до кратного 32бит и выразим в количестве инт32(те. поделим на размер инт в битах)
      if (size%32) size+=(32-size%32);
      size=size>>5;//делим на 32
      int* result;
      __int64 accum=0;
      result=new int[size+1];
      result[size]=1;//принициалиировали итоговый ответ единичкой - мы же перемножать будем
      result[0]=size;
      for(i=el1+1;i<el2;i++)
      {
           for (int j=size;j>1;j--)
           {
                  accum+=arr[i]*result[j];
                  arr[i]=accum%(2<<32);
                  accum>>32;
           }
           arr[1]=accum%32;
      }
      return result;
}
int log2(int n)
{
     int result;
     while(n)
     {
         result++;
         n>>1;
     }
     return result; 
}

int* result;
result=mul12(predefinedarray,100);
int razmercheg_otveta=result[0];
if (razmercheg_otveta=1)
{
    int otveteg=result[1];
}
else
{
    int* otveteg;
    otveteg=new int[size];
    for(i=0;i<size;i++)
    {
          otveteg[i]=result[i+1];
    }
}

void mixarray(int* array,int size)
{
      int* tmparr;
      tmparr=new int[size];
      for (int i=0;i<size;i++)//перемешиваем
      {
           if(i%2) tmp[(i-1)>>1]=array[i];
           else {tmp[(size+i)>>1]=array[i];}
      }
      for (int i=0;i<size;i++)//копируем в исходный массив
      {
           array[i]=tmp[i];
      }
      delete[] tmparr; //чистим мусор за собой     
}

int k_list(int* matrix)//считаем что матрица 8 на 8
{
   //максимум можно получить 8 значений k, типа bool (для каждой позиции)
   //т.е. их можно запихнуть в 1 байт, а 4байта (int) и подавно
   int klist=0,i=0,j=0;
   double tmp;//схалтурим с типом- здесь если хоть одна ячейка i-того столбца
   //совпадет с соотв. ячейкой i-той строки будет 0   
   for (i=0,i<8,i++)
   {
       tmp=1.0;
       for (j=0,j<8,j++)
       {
             tmp*=(array[i+j]-array[i+(j<<3)]);
       }
       if (tmp)
       {
             klist+=(2<<i);//ставим флажок напротив соответствующей строки
             //который кагбы говорит нам: эта строка=соответствующему столбцу
       }
   }
   return klist;
}

....
//пример обработчика
int k=k_list(ourmatrix_8x8)
cout<<"\nk row of matrix is equal to k column for such k:"
for (int i=0;i<8;i++)
{
    if ((k>>i)%2) cout<<i<<",";
}
....

int* sum(int* matrix)//та же матрица 8х8
{
    int i=0,j=0,strings=0;
    for (i=0;i<8;i++)
    {
          for (j=0,j<8,j++)
          {
               if (matrix[(i<<3)+j]<0)
               {
                    strings+=(2<<i);//пометили нужные
                    strings+=256;//и +1 к размеру массива под ответы
                    //(пишем во второй байт инт32, в первом у нас маска нужных строк)
               }
          }
    }
    int* sum;//массив ответов,0-элемент - количество, 1-n - ответы
    sum=new __int64[(strings>>8)+1];//инт32 для суммы 8 инт32 может
    //не хватить
    sum[0]=(strings>>8);
    int n=1;
    for (i=0;i<8;i++)
    {
         if ((strings>>i)%2)
         {
               for(j=0;j<8;j++)
               {
                    sum[n]+=matrix[(i<<3)+j];
               }
               n++;
         }
    }
return sum;
}

....
//пример обработчика
__int64* s =sum(ourmatrix_8x8);
cout<<"\nsum of elements from the matrix's rows which contains elements<0:"
for (int i=0;i<s[0];i++)
{
    cout<<s[i+1]<<",";
}
....

c:\documents and settings\bot\мои документы\visual studio 2005\projects\222\222\222.cpp(7) : error C2871: 'std' : a namespace with this name does not exist
c:\documents and settings\bot\мои документы\visual studio 2005\projects\222\222\222.cpp(23) : error C2109: subscript requires array or pointer type
c:\documents and settings\bot\мои документы\visual studio 2005\projects\222\222\222.cpp(23) : error C2109: subscript requires array or pointer type
c:\documents and settings\bot\мои документы\visual studio 2005\projects\222\222\222.cpp(31) : error C4430: missing type specifier - int assumed. Note: C++ does not support default-int
c:\documents and settings\bot\мои документы\visual studio 2005\projects\222\222\222.cpp(32) : error C2065: 'cout' : undeclared identifier
c:\documents and settings\bot\мои документы\visual studio 2005\projects\222\222\222.cpp(33) : error C2065: 'cin' : undeclared identifier
c:\documents and settings\bot\мои документы\visual studio 2005\projects\222\222\222.cpp(36) : error C2065: 'Cout' : undeclared identifier
c:\documents and settings\bot\мои документы\visual studio 2005\projects\222\222\222.cpp(39) : error C2440: '=' : cannot convert from 'int *' to 'int'
        There is no context in which this conversion is possible
c:\documents and settings\bot\мои документы\visual studio 2005\projects\222\222\222.cpp(39) : error C2440: '=' : cannot convert from 'int *' to 'int'
        There is no context in which this conversion is possible
c:\documents and settings\bot\мои документы\visual studio 2005\projects\222\222\222.cpp(42) : error C2143: syntax error : missing ';' before 'for'
c:\documents and settings\bot\мои документы\visual studio 2005\projects\222\222\222.cpp(53) : error C2143: syntax error : missing ';' before 'for'
c:\documents and settings\bot\мои документы\visual studio 2005\projects\222\222\222.cpp(57) : error C2109: subscript requires array or pointer type
c:\documents and settings\bot\мои документы\visual studio 2005\projects\222\222\222.cpp(61) : error C2664: 'mulmatr' : cannot convert parameter 2 from 'int' to 'int *'
        Conversion from integral type to pointer type requires reinterpret_cast, C-style cast or function-style cast
c:\documents and settings\bot\мои документы\visual studio 2005\projects\222\222\222.cpp(67) : error C2109: subscript requires array or pointer type
c:\documents and settings\bot\мои документы\visual studio 2005\projects\222\222\222.cpp(71) : error C3861: 'getch': identifier not found