Реализация на 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
Скажем поступок,где Карлсон воровал плюшки,высоко безнравственен.Воровать вообще не хорошо,но с точки зрения детской литературы-это выглядит даже более чем забавно.Ведь Малыш своему другу Карлсону,что его заперла злая домоуправительница,и не дает вкусняшки,поэтому,со стороны автора,это выглядит как маленькая хитрость.Карлсон как верный друг просто не мог оставить малыша в такой детской беде и конечно же ему Ведь Карлсон зная что в соседней комнате лежат плюшки,мог сам из тихонько сьесть,но опять проявил свою любовь и заботу к малышу и поделился с ним.Считаю что это выглядит как маленькая месть-хитрость,и учит нас тому,что друзей в жизни надо иметь как можно больше.
Если есть офис, то можете запустить программу.
Код увидеть 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