В составе баскетбольной команды 12 игроков. Сколько игроков в команде имеют рост, меньший среднего роста команды?

@morpex224 · Регистрация: 10.04.2018

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

!!!

@ZX Spectrum-128 · 27.04.2018, 18:38

Delphi

const
  N = 12;
 
var
  a: array [1..N] of integer;
  k, i, j: integer;
  sr: real;
 
begin
  for i := 1 to N do 
  begin
    readln(a[i]);
    sr := sr + a[i];
  end;
  sr := sr / n;
  k := 0;
  for i := 1 to N do 
    if a[i] < sr then
      inc(k);
  writeln(k);
end.

@morpex224 -5 / 0 / 0 Регистрация: 10.04.2018 Сообщений: 23
		1
	В составе баскетбольной команды 12 игроков. Сколько игроков в команде имеют рост, меньший среднего роста команды? 26.04.2018, 23:11. Показов 1443. Ответов 1 Метки нет (Все метки) !!! 0

	27.04.2018, 18:38

Опции темы

В составе баскетбольной команды 12 игроков. Сколько игроков в команде имеют рост, меньший среднего роста команды?

Решение