Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Помощь студентам


Ответ
 
Опции темы Опции просмотра
Старый 18.01.2011, 18:09   #1 (permalink)
Jykiettka
Новичок
 
Регистрация: 18.01.2011
Сообщений: 1
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию Задача про средний рост мальчиков и девочек

рост 22 учеников класса представлен в виде массива, рост мальчиков условно задан отрицательными числами, определите средний рост мальчиков и средний рост девочек

Помогите кто может

Замечание:
Jukiettka, а Вы действительно полагаете, что модераторское замечание насчет влезания в чужие темы, расположенное в первом посте той старой темы, в которую Вы влезли, к Вам не относится? Уверяю Вас - заблуждаетесь.
Модератор.
Jykiettka вне форума   Ответить с цитированием

Старый 18.01.2011, 18:09
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

С уверенностью могу сказать, что в этих темах есть множество полезной информации

Какой у вас рост?
Задача по С + +
Задача по С++
Какой средний заработок фрилансера в месяц?
Задача
Задача

Старый 19.01.2011, 10:06   #2 (permalink)
shrek=)
Студент БГПУ
 
Аватар для shrek=)
 
Регистрация: 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.
shrek=) вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 13:37.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.