Реализация на VBA Excell Если есть офис, то можете запустить программу. Код увидеть Alt+F11
Sub massiv() строка = 3 'не обязательно,номер строки для начала вывода на лист n = Cells(2, 3) 'не обязательно, вводим количество чисел Dim B(10000) As Integer 'резервируем память на 10000 целых чисел S = 0 'обнуляем сумму For i = 1 To n 'Начало цикла k = Rnd(1) 'Генерируем случайное число в диапазоне (0;1) k = k * 9 + 12 'Смещаем его в диапазон [12;20] k = Int(k) 'обрезаем, оставляя целое B(i) = k 'заполняем массив S = S + k 'считаем сумму Cells(строка, 3) = строка - 2 'не обязательно, вывод номера значеня Cells(строка, 4) = k 'Не обязательно вывод значения строка = строка + 1 'не обязательно, увеличить строку для вывода Next i 'Конец цикла Cells(строка, 3) = "сумма =" 'не обязательно, выводим надпись Cells(строка, 4) = S 'не обязательно, выводим сумму End Sub
Такие задания решаются с трассировочной таблицы. Выписываешь все переменные, которые есть в программе (если массив, то отдельно выписываешь каждую ячейку). Сколько переменных - столько столбцов в таблице. Потом притворяешься компьютером и выполняешь программу команда за командой, при этом записывая все изменения значений переменных по такому правилу: 1) если значение переменной ещё не определено, ничего не пишешь (оставляешь пустые клетки); 2) если значение переменной изменилось в ходе выполнения команды - пишешь новое значение (в моей таблице выделены жёлтым); 3) если значение переменной НЕ изменилось в ходе выполнения команды - пишешь старое значение (то есть переписываешь его из клетки, которая на одну выше). В конце смотришь, значение какой переменной должен напечатать компьютер - это и есть ответ.
