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

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

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

Количество элементов, превышающих среднее арифметическое значение элементов, равно:.......

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(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])

s := s + b[i]

end;

sr := s / n;

for i := 1 to n do

if b[i] > sr then k := k + 1;

writeln(taskk=task, k, task sr=task, sr:6:2);

end.

sr=13.88

Количество элементов, превышающих среднее арифметическое значение элементов, равно: 4

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