Задание 5 Вариант 2 Самостоятельная работа 4 ГДЗ Рабочая тетрадь Босова 11 класс (Информатика)

Ниже вариант решения задания из учебника Босова, Босова, Аквилянов 11 класс, Бином:

5. Напишите программу вычисления среднего арифметического модулей отрицательных элементов массива B[1..N]. Проверьте работу программы на заданном массиве В = {63, 7.2, -4.5, 0, -10, 14, -310, 50, 11, -14, 5}.

Среднее арифметическое модулей отрицательных элементов равно: ..............

program s4_v2_5;

const

n = 11;

var

b: array[1..n] of real;

i, k: integer;

s, sr: real;

begin

s := 0; k := 0;

writeln(taskввод массиваtask);

//randomize;

for i := 1 to n do

begin

readln(b[i]);

//b[i] := random * 20 - 10;

//writeln(taskb[task, i, task]=task, b[i])

end;

for i := 1 to n do

if b[i]

begin

s := s + abs(b[i]); k := k + 1

end;

sr := s / k;

writeln(tasksr=task, sr:6:2);

end.

Среднее арифметическое модулей отрицательных элементов равно: 84.63

В программе предусмотрен (в комментариях) ввод массива через генератор случайных чисел. Можно воспользоваться им, для этого убрать // и закомментировать ввод с клавиатуры.