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

Количество элементов, превышающих среднее арифметическое значение элементов, равно:…….
program s4_v2_8;
const
n = 11;
var
b: array[1..n] of real;
i, k: integer;
sr, s: 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])
s := s + b[i]
end;
sr := s / n;
for i := 1 to n do
if b[i] > sr then k := k + 1;
writeln(‘k=’, k, ‘ sr=’, sr:6:2);
end.
sr=13.88
Количество элементов, превышающих среднее арифметическое значение элементов, равно: 4
В программе предусмотрен (в комментариях) ввод массива через генератор случайных чисел. Можно воспользоваться им, для этого убрать // и закомментировать ввод с клавиатуры. Для изменения количества элементов измените n.

Найдём среднее арифметическое элементов массива:

$$s = 63 + 7.2 + (-4.5) + 0 + (-10) + 14 + 31 + 50 + 11 + (-14) + 5 = 152.7$$

$$sr = \frac{152.7}{11} = 13.88$$

Теперь подсчитаем элементы массива, которые больше среднего значения $$13.88$$:

• $$63$$
• $$14$$
• $$31$$
• $$50$$

Таких элементов 4.

program s4_v2_8;
const
  n = 11;
var
  b: array[1..n] of real;
  i, k: integer;
  sr, s: real;
begin
  s := 0; k := 0;
  writeln(‘ввод массива’);
  for i := 1 to n do
  begin
    readln(b[i]);
    s := s + b[i]
  end;
  sr := s / n;
  for i := 1 to n do
    if b[i] > sr then k := k + 1;
  writeln(‘k=’, k, ‘ sr=’, sr:6:2);
end.

При проверке на заданном массиве получаем: $$sr = 13.88$$, количество элементов, превышающих среднее арифметическое, равно $$4$$.

Ответ

4