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

Так как среднее значение элементов целочисленного массива будет действительным числом, для сравнения его с элементами целочисленного массива его надо округлить до ближайшего целого.
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(‘sr=’,sr);
k := 0;
for i := 1 to n do
if a[i] < sr then inc(k); writeln('Количество элементов меньше среднего = ', k) end.

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

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.

Ответ

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