10.8. Заполнение массива случайными числами

Случайные (точнее, псевдослучайные) числа формируются математической функцией RANDOM(N). Функция возвращает псевдослучайное число Х типа Word (целое без знака длиной 2 байта) в диапазоне 0≤ X < N. Если параметр диапазона N не задан, то возвращается псевдослучайное число в диапазоне 0≤ X < 1. Для того, чтобы числа не повторялись при каждом обращении к функции, необходимо инициировать программный генератор псевдослучайных чисел, вызвав процедуру RANDOMIZE.

Например, для заполнения одномерного массива из 10 элементов числами в диапазоне от 0 до 20 необходимо выполнить программу:

RANDOMIZE;

FOR I:=1 TO 10 DO MAS1[I]:=RANDOM(21);

Если диапазон случайных чисел требуется выбрать, начиная, например, с числа 5, то результат работы функции следует увеличить на эту величину, предусмотрев ограничение на максимальное значение функции. Для диапазона, например, от 5 до 20 программа изменится следующим образом:

RANDOMIZE;

FOR I:=1 TO 10 DO MAS1[I]:=RANDOM(16)+5;

10. 9. Индивидуальные задания по работе с массивам

1. Заполните массив десятью случайными целыми числами, каждое их которых лежит в пределах от 50 до 200, и выведите на экран их численные значения.

2. 2. Заполните массив десятью случайными целыми числами, каждое их которых лежит в пределах от 5 до 30, и выведите на экран их численные значения.

3. Напишите программу вычисления среднего арифметического следующих десятичных чисел: 31, 19, 52, 65, 6, 8, 13, 16, 97, 33, вводимых с клавиатуры.

4. Найти сумму 1-го, 4-го, 9-го, 16-го и 81-го элементов массива, состоящего из 100 целых случайных чисел, каждое из которых лежит в пределах от 2 до 22.

5. Замените в массиве из 10 случайных целых чисел, каждое из которых лежит в пределах от 1 до 10, все четные элементы нулями и выведите полученный массив на экран.

6. Массив состоит из 60 случайных двузначных целых чисел. Выведите их на экран в обратном порядке по 6 чисел в строке.

7. В массиве содержатся 10 букв — С, Ф, О, И, К, Л, О, И, Л, Н. Выведите на экран слово, образованное буквами с четными индексами, и слово, образованное буквами с нечетными индексами.

8. Массив состоит из 20 целых положительных и отрицательных чисел, модуль каждого из которых в пределах от 2 до 12. Выведите на экран сначала отрицательные, а затем положительные числа. Определите, модуль суммы каких чисел больше — положительных или отрицательных.

9. Найдите максимальный и минимальный элементы массива из 10 случайных целых двузначных чисел и разность между ними. П

10. Даны два массива, заполненные каждый десятью случайными целыми числами, каждое из которых от 1 до 9 включительно. Сложите массивы поэлементно, результаты запишите в третий массив. На экран вывести все три массива.

11. Найдите скалярное произведение двух массивов А и В, состоящих из 5 элементов каждый, которые содержат случайные числа от 2 до 9 включительно. Воспользуйтесь формулой: Р=А1*В1+А2*В2+ ... +АN*ВN, где N — размер массива.

12. Определите объем каждого из 10 цилиндров, для которых заданы радиусы оснований R (случайные целые числа от 5 до 25 см) и высоты Н (случайные целые числа от 10 до 30 см).

13. Дан одномерный массив XV из 10 случайных целых чисел, каждое из которых лежит в пределах от 1 до 100. Получите новый массив К, где каждый элемент создается из массива делением соответствующего элемента на его индекс.

14. Дан массив X, состоящий из 100 целых случайных чисел, каждое из которых лежит в пределах от 3 до 13. С клавиатуры вводится целое число N, также лежащее в этих пределах. Определите количество элементов массива, равных числу N.