Задача про средний рост мальчиков и девочек

Jykiettka · 18.01.2011, 18:09

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

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

Замечание:

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

shrek=) · 19.01.2011, 10:06

Думаю можно сделать так:

Код:

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.

18.01.2011, 18:09
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	С уверенностью могу сказать, что в этих темах есть множество полезной информации Какой у вас рост? Задача по С + + Задача по С++ Какой средний заработок фрилансера в месяц? Задача Задача

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