Программироание vba. надо написать программу, в которой есть функция . функция принимает массив . она сортирует массив (числа ) по возрастанию . после надо вывести полученный результат на печать

Private Sub CommandButton1_Click()
    Dim n As Integer, R As Range
    n = Cells(1, 4).Value
    Set R = Range(Cells(5, 2), Cells(4 + n, 2))
    MySort R.Offset(0, -1), R
End Sub

Private Sub MySort(RFrom As Range, RTo As Range)
' На самом деле сто лет она тут не нужна, глупо придумано задание
    RFrom.Copy RTo
    RTo.Sort RTo.Range(Cells(1, 1), Cells(1, 1))
End Sub

Файл MS Excel 2003 во вложении.

#include <stdio.h>

#include <math.h>

float eps = 0.000001;

int main()

{

float n; scanf("%f", &n);

float a[n];

for (int i=0;i<n;i++)

scanf("%f", a[i]);

char toCopy = 1;

for (int i=1;i<n;i+=2)

if (abs(round(a[i]) - a[i]) > eps)

{toCopy = 0; break;}

if (toCopy)

int b[n/2];

for (int i=n-(n%2), j=0;j<n/2;i-=2, j++)

b[j] = (int)a[i];

}

Объяснение:

Предполагаю, что сначала указывается количество элементов исходного массива. Далее происходит все то, что вы описали. eps - погрешность для определения целого числа, чем оно меньше - тем точнее числа будут определяться как дробные

Қауіпсіздік техникасының ережелерін төмендегі пункттерге бөлуге болады:

1. Жалпы

2. ДК - де жұмыс істеу алдында

3. Жұмыс істеу кезінде

4. Авариялық жағдайларда

5. Жұмысты аяқтағанда

Жалпы қауіпсіздік талаптары:

1. Мұғалімнің рұқсатынсыз құрал - жабдықтарды орнынан қозғауға, сымдарға, розеткаларға, штепсельдің айырына, штекерге тиісуге тыйым салынады.

2. Мұғалімнің рұқсатынсыз сыныпқа кіруге және сыныптан шығуға болмайды.

3. Мұғалімнің рұқсатынсыз сыныпта жүруге болмайды.

4. ДК - де су киіммен және су қолмен жұмыс істеуге болмайды.

5. Корпусы мен сымдарының бүтіндігі бұзылған (ашық) ДК - де жұмыс істеуге тыйым салынады.

6. Үстелге, ДК - дің жанына сумка, портфель, кітап қоюға болмайды. Үстелде тек дәптер мен қалам ғана жатуы керек.

7. Пернетақтаның үстіне ештеңені қоюға болмайды.

8. Компьютер сыныбында жүгіруге, ойнауға, жолдастарыңның көңілін қажетсіз аударуға, бөгде жұмыстарды істеуге тыйым салынады.