Вопрос по информатике:
В классе N учеников. Найти средний рост ученика в этом классе.(паскаль)
Пожаловаться
- 03.01.2015 06:27
- Информатика
- remove_red_eye 11607
- thumb_up 39
Ответы и объяснения 1
var s,i,n,k: integer;
begin
repeat
write('Введите кол-во учеников: ');
read(n);
until n>0;
for i:=1 to n do
begin write('Введите рост ',i,' ученика: ');
repeat read(k);
until k>0;
inc(s, k);
end;
write('Средний рост = ',s/n);
end.
begin
repeat
write('Введите кол-во учеников: ');
read(n);
until n>0;
for i:=1 to n do
begin write('Введите рост ',i,' ученика: ');
repeat read(k);
until k>0;
inc(s, k);
end;
write('Средний рост = ',s/n);
end.
Пожаловаться
- 04.01.2015 22:38
- thumb_up 10
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы