Question

1.Создать массив целых чисел на 10 элементов, заполнить его случайными числами от 0 до 10. Найти среднее арифметическое всех элементов массива. Язык - Паскаль Объяснить каждый пункт

Answer 1

begin

 var arr := new integer[10]; // Объявляем массив состоящий из 10 целых чисел

 

 // Заполняем массив случайными числами в диапазоне от 0 до 10

 for var i := 0 to arr.High do

   arr[i] := Random(0, 10);

 

 var sum := 0; // Объявляем переменную sum для хранения суммы всех чисел массива

 // В цикле берем каждый элемент и суммируем в sum

 forEach var x in arr do

   sum += x;

 

 // Делим всю сумму (sum) на 10 (длину массива) и получаем нужное значение

 var average := sum / 10;

 Println('Среднее значение:', average);

end.

Answer 2

Для выполнения данной задачи на языке Паскаль, следуйте этим шагам:

1. Объявление переменных и массива: Начнем с объявления переменных и массива целых чисел. Мы также понадобимся переменной для хранения суммы элементов.

pascalCopy code
program AverageCalculation;

const
  ARRAY_SIZE = 10;
  
var
  numbers: array[1..ARRAY_SIZE] of Integer;
  sum, i: Integer;
  average: Real;

2. Заполнение массива случайными числами: Для заполнения массива случайными числами, воспользуемся функцией Random из модуля SysUtils.

pascalCopy code
begin
  Randomize; // Инициализация генератора случайных чисел
  
  for i := 1 to ARRAY_SIZE do
    numbers[i] := Random(11); // Генерация случайного числа от 0 до 10

3. Вычисление суммы элементов: Пройдемся по всем элементам массива и прибавим их значения к переменной sum.

pascalCopy code
  sum := 0; // Инициализация суммы
  
  for i := 1 to ARRAY_SIZE do
    sum := sum + numbers[i]; // Прибавление значения элемента к сумме

4. Вычисление среднего арифметического: Для нахождения среднего арифметического, поделим сумму на количество элементов.

pascalCopy code
  average := sum / ARRAY_SIZE; // Вычисление среднего арифметического

5. Вывод результата: Наконец, выведем среднее арифметическое на экран.

pascalCopy code
  writeln('Сгенерированные числа:');
  
  for i := 1 to ARRAY_SIZE do
    write(numbers[i], ' ');
    
  writeln; // Переход на новую строку
  
  writeln('Среднее арифметическое:', average:0:2);
end.

Запустив эту программу, вы получите массив случайных чисел и их среднее арифметическое.