Массив: Найти количество элементов больше среднего арифметического.

@0_Velikiy · Регистрация: 26.09.2019

Author24 — интернет-сервис помощи студентам

дан массив z18 сформированный с клавиатуры, необходимо найти количество элементов больше среднего арифметического

@ZX Spectrum-128 · 26.09.2019, 19:41

Вывести количество элементов массива, значение которых больше среднего арифметического его элементов

@bormant · 27.09.2019, 11:31

ZX Spectrum-128,
можно обойтись без действительной переменной и деления:

Pascal

const n=18;
var
  z: array [1..n] of Integer;
  i, k: Integer;
  s: LongInt;
begin
  for i:=1 to n do begin
    Read(z[i]); s:=s+z[i];
  end;
  k:=0; for i:=1 to n do if n*z[i]>s then Inc(k);
  WriteLn(k);
end.

@0_Velikiy 0 / 0 / 0 Регистрация: 26.09.2019 Сообщений: 1
		1
	Массив: Найти количество элементов больше среднего арифметического. 26.09.2019, 18:56. Показов 3568. Ответов 2 Метки нет (Все метки) дан массив z18 сформированный с клавиатуры, необходимо найти количество элементов больше среднего арифметического 0

@ZX Spectrum-128 6811 / 4568 / 4819 Регистрация: 05.06.2014 Сообщений: 22,438
	26.09.2019, 19:41	2
	Вывести количество элементов массива, значение которых больше среднего арифметического его элементов 0

	27.09.2019, 11:31

Массив: Найти количество элементов больше среднего арифметического.

Решение