Для иллюстрации приемов работы с массивами приведем программу в примере 11. Она создает массив из случайных чисел, затем подсчитывает их среднее арифметическое, и затем определяет и выводит на экран максимальное и минимальное из этих чисел.
Пример 11
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 используется для начальной инициализации датчика случайных чисел.
Комментарии
Комментариев пока нет - будьте первым.