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.

feaf7453ca6008cef4888dcbe8e2a0ae.pas