Задание 2 Параграф 22 ГДЗ Семакин 9 класс (Информатика)

Ниже вариант решения задания из учебника Семакин, Залогова 9 класс, Просвещение:

2. Разработайте программу на Паскале. Имеется массив целых чисел. Подсчитайте количество элементов массива, значения которых меньше среднего значения всех элементов массива.

Так как среднее значение элементов целочисленного массива будет действительным числом, для сравнения его с элементами целочисленного массива его надо округлить до ближайшего целого.

program poisk;

const

n = 10;

var

a: array [1..n] of integer;

i, s, sr, k: integer;

begin

writeln(task Формирование и вывод исходного массиваtask);

randomize;

s := 0;

for i := 1 to n do

begin

a[i] := random(50) - 25;

write(a[i], task task);

s := s + a[i]//сумма элементов массива

end;

sr := round(s / n);

writeln(tasksr=task,sr);

k := 0;

for i := 1 to n do

if a[i]

writeln(taskКоличество элементов меньше среднего = task, k)

end.