Выясните средний возраст группы и процент людей, возраст которых меньше 20 лет

@Dr_Zombos · Регистрация: 15.05.2016

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

Помогите пожалуйста написать эту программу. Буду очень благодарен, заранее спасибо. всем добра.
Известен возраст группы людей состоящей из N человек.Выясните средний возраст группы и процент людей, возраст которых <20 лет.

@ZX Spectrum-128 · 15.05.2016, 11:23

Pascal

k:=0;
for i:=1 to n do
begin
 s:=s+a[i];
 if s[i]<20 then
  inc(k);
end;
s:=s/n; // средний  возраст
procent:=k/n*100;

@Dr_Zombos 0 / 0 / 0 Регистрация: 15.05.2016 Сообщений: 9
		1
	Выясните средний возраст группы и процент людей, возраст которых меньше 20 лет 15.05.2016, 10:13. Показов 1832. Ответов 1 Метки нет (Все метки) Помогите пожалуйста написать эту программу. Буду очень благодарен, заранее спасибо. всем добра. Известен возраст группы людей состоящей из N человек.Выясните средний возраст группы и процент людей, возраст которых <20 лет. 0

	15.05.2016, 11:23

Опции темы

Выясните средний возраст группы и процент людей, возраст которых меньше 20 лет

Решение