1-11 класс
  • 1-11 класс
  • 1 класс
  • 2 класс
  • 3 класс
  • 4 класс
  • 5 класс
  • 6 класс
  • 7 класс
  • 8 класс
  • 9 класс
  • 10 класс
  • 11 класс
Выберите класс
Предметы
(Сам и контр)
Задание 5 Вариант 2 Самостоятельная работа 4 ГДЗ Рабочая тетрадь Босова 11 класс (Информатика)
Босова, Босова, Аквилянов
11 класс
Автор
Босова, Босова, Аквилянов

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

Задача

Среднее арифметическое модулей отрицательных элементов равно: …………..
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(‘ввод массива’);
//randomize;
for i := 1 to n do
begin
readln(b[i]);
//b[i] := random * 20 — 10;
//writeln(‘b[‘, i, ‘]=’, b[i])
end;
for i := 1 to n do
if b[i] < 0 then begin s := s + abs(b[i]); k := k + 1 end; sr := s / k; writeln('sr=', sr:6:2); end. Среднее арифметическое модулей отрицательных элементов равно: 84.63 В программе предусмотрен (в комментариях) ввод массива через генератор случайных чисел. Можно воспользоваться им, для этого убрать // и закомментировать ввод с клавиатуры.

Подробный ответ

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

  • перебираем все элементы массива;
  • если элемент отрицательный, прибавляем его модуль к сумме $$s$$;
  • увеличиваем счётчик отрицательных элементов $$k$$;
  • после обхода массива находим $$sr = \dfrac{s}{k}$$.

Для массива $$B = \{63, 7.2, -4.5, 0, -10, 14, -310, 50, 11, -14, 5\}$$ отрицательные элементы: $$-4.5,\ -10,\ -310,\ -14$$.

Их модули:

$$|{-4.5}| = 4.5,\quad |{-10}| = 10,\quad |{-310}| = 310,\quad |{-14}| = 14$$

Сумма модулей:

$$s = 4.5 + 10 + 310 + 14 = 338.5$$

Количество отрицательных элементов:

$$k = 4$$

Среднее арифметическое:

$$sr = \dfrac{338.5}{4} = 84.625 \approx 84.63$$

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(‘ввод массива’);
  for i := 1 to n do
  begin
    readln(b[i]);
  end;
  for i := 1 to n do
    if b[i] < 0 then
    begin
      s := s + abs(b[i]);
      k := k + 1;
    end;
  sr := s / k;
  writeln(‘sr=’, sr:6:2);
end.

Ответ

$$84.63$$



Общая оценка
4.2 / 5
Другие учебники
Другие предметы