Кзавтрашнему я бы с радостью понять но ничегошеньки не только этом использованием while там есть пример 2 и 3 не надо я сам понял. столько 4,5,6 надо умоляю вас последняя надежда на вас

#include <conio.h>
#include <iostream>
using namespace std;

int main()
{   
           int a[12],k;   
           cout<<"Massive before: ";   
           srand(time(NULL));   
           for(int i=0;i<12;i++)   
           {       
                    a[i]=(rand() % 25 -12);       
                    cout<<a[i]<<" ";       
                    if((i+1)%4==0) cout<<" | ";   
           }
           for(int j=0;j<3;j++)   
           {       
                      for(int i=0;i<2;i++)       
                      {           
                      k=a[j*4+i];           
                      a[j*4+i]=a[3+j*4-i];           
                      a[3+j*4-i]=k;       
                      }   
           }     
          cout<<endl<<"Massive       : ";   
          for(int i=0;i<12;i++)   
          {       
                       cout<<a[i]<<" ";       
                       if((i+1)%4==0) cout<<" | ";   
           }       
           getch();   
           return 0;
} 

Объем прямоугольного параллелепипеда с длиной а, шириной b и высотой h  может быть найден, как произведение площади основания ab на высоту, т.е. Vп=abh.
Из этого объема нужно вычесть объемы четырех цилиндров. Объем цилиндра с диаметром основания D и высотой h находится по формуле Vц=πD²h/4.
Окончательно V = Vп-4Vц = h(ab-πD²).
Масса такой фигуры пли заданной плотности ρ может быть найдена по формуле m=ρV

В программе будем считать, что значения a,b,h,D,ρ заданы в ячейках листа рабочей книги MS Excel, Туда же будут выведены результаты. Для второго примера a,b будем вводить в диалоге, а ответ выдадим в окне сообщений. Это проиллюстрирует часть различных возможностей ввода и вывода данных в VBA.

Файл с рабочей книгой MS Excel 2003 дан во вложении.
На всякий случай ниже приводятся коды, прописанные в кнопках.

Private Sub CommandButton1_Click()
    ' ввод
    a = Cells(1, 2).Value
    b = Cells(2, 2).Value
    h = Cells(3, 2).Value
    D = Cells(4, 2).Value
    rho = Cells(5, 2).Value
    'расчет
    V = h * (a * b + Pi * D ^ 2)
    m = rho * V
    ' вывод
    Cells(7, 2) = V
    Cells(8, 2) = m
End Sub

Private Sub CommandButton2_Click()
    a = CDbl(InputBox("Введите значение a"))
    b = CDbl(InputBox("Введите значение b"))
    x = Atn(a + b)
    y = Sin(a * b - 2)
    u = Log(x ^ 2 + y ^ 2 + 1)
    MsgBox "y=" + CStr(u)
End Sub