Вычислить средние арифметические значения отрицательных элементов - Pascal ABC

Узнай цену своей работы

Формулировка задачи:

Вычислить сpеднее аpифметическое значение отpицательных элементов массива Х, состоящего из N целых чисел и находящегося в динамической памяти.

Решение задачи: «Вычислить средние арифметические значения отрицательных элементов»

textual
Листинг программы
var n,i,sum,count:integer;
x:array of integer;
BEGIN
n:=10;
sum:=0;
count:=0;
SetLength (x,n);
x:=ArrRandom (n,-10,10);
For i:=0 to n-1 do
IF x[i]<0 THEN begin sum:=sum+x[i];
                     count:=count+1;
               end;
Writeln (sum/count);
END.

Объяснение кода листинга программы

  1. Переменные n, i, sum и count инициализируются значениями типа integer.
  2. Создается массив x типа array of integer со 10 элементами.
  3. Значения массива x случайным образом устанавливаются в диапазоне от -10 до 10.
  4. В цикле for перебираются все элементы массива x от 0 до n-1.
  5. Если значение элемента x[i] меньше нуля, то к переменной sum добавляется значение этого элемента, а к переменной count увеличивается на 1.
  6. По завершении цикла вычисляется среднее арифметическое значение, разделив сумму на количество элементов, и выводится результат.

Оцени полезность:

8   голосов , оценка 4 из 5
Похожие ответы