Для иллюстрации приемов работы с массивами приведем программу в примере 11. Она создает массив из случайных чисел, затем подсчитывает их среднее арифметическое, и затем определяет и выводит на экран максимальное и минимальное из этих чисел.
Пример 11
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 |
var x : array [1..100] of integer; i : integer; max, min : integer; s : real; BEGIN { Создание массива из случайных чисел } randomize; for i:=1 to 100 do x[i]:=random(101); s:=0; max:=x[1]; min:=x[1]; { Вычисление суммы всех случайных чисел и поиск максимума и минимума } for i:=1 to 100 do begin s:=s+x[i]; if x[i]<min then min:=x[i] else if x[i]>max then max:=x[i] end; { Вычисление среднего и вывод результата } writeln(‘Среднее арифметическое равно: ’,s/100:4:1); writeln(‘Минимальное значение равно: ’,min:3); writeln(‘Максимальное значение равно: ’,max:3); END. |
В приведенном примере для создания массива случайных чисел использовалась встроенная функция random(max), которая генерирует случайное число, равномерно распределенное в диапазоне от 0 до max-1. Функция randomize используется для начальной инициализации датчика случайных чисел.