18.01.2011, 18:09 | #1 (permalink) | ||
Новичок
Регистрация: 18.01.2011
Сообщений: 1
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Задача про средний рост мальчиков и девочек
Помогите кто может
|
||
18.01.2011, 18:09 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
С уверенностью могу сказать, что в этих темах есть множество полезной информации Какой у вас рост? Задача по С + + Задача по С++ Какой средний заработок фрилансера в месяц? Задача Задача |
19.01.2011, 10:06 | #2 (permalink) |
Студент БГПУ
Регистрация: 06.02.2010
Сообщений: 420
Записей в дневнике: 3
Сказал(а) спасибо: 1
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 470
|
Думаю можно сделать так:
Код:
const n=22; var mas:array [1..n] of real; i,k,l:integer; m,d:real; begin m:=0; d:=0; k:=0; l:=0; for i:=1 to n do begin write ('рост ',i,' человка равен '); readln(mas[i]); if mas[i]<0 then begin m:=m+mas[i]; inc(k); end else begin d:=d+mas[i]; inc(l); end; end; if k<>0 then m:=m/k else writeln ('мальчиков нет'); if l<>0 then d:=d/l; else writeln ('девочек нет'); writeln ('средни рост мальчиковl',abs(m),' средний рост девочек',d); readln end. |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|