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

[Jykiettka]

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

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

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

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

 

[shrek=)]

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

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.