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

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

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

program poisk;
const
  n = 10;
var
  a: array [1..n] of integer;
  i, s, sr, k: integer;
begin
  writeln(‘Формирование и вывод исходного массива’);
  randomize;
  s := 0;
  for i := 1 to n do
  begin
    a[i] := random(50) — 25;
    write(a[i], ‘ ‘);
    s := s + a[i];
  end;
  sr := round(s / n);
  writeln;
  writeln(‘sr = ‘, sr);
  k := 0;
  for i := 1 to n do
    if a[i] < sr then inc(k);
  writeln(‘Количество элементов меньше среднего = ‘, k);
end.

Ответ

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