Вопрос по информатике:
С клавиатуры введен рост учеников (N количество) класса в виде множества.Нужно найти средний рост учеников
- 21.12.2017 12:15
- Информатика
- remove_red_eye 6494
- thumb_up 41
Ответы и объяснения 1
// PascalABC.Net 3.0, сборка 1066
var
i,n,k,h,a:integer;
s:set of 120..180;
begin
Write('Количество учеников: '); Read(n);
Writeln('Введите рост учеников');
for i:=1 to n do begin Read(h); s:=s+[h] end;
k:=0; a:=0;
for i:=120 to 180 do
if i in s then begin Inc(k); a:=a+i end;
Writeln('Средний рост равен ',a/k)
end.
- 22.12.2017 14:36
- thumb_up 24
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.