Program vb5;
uses crt;
var a:array [1..100] of integer;
i,n,kd,km:integer; sm,sd:real;
begin
write ('Введите количество учащихся: ');
read(n);
for i:=1 to n do
read(a[ i ]);
for i:=1 to n do
begin
if a[ i ]<0 then
begin
inc(km);
sm:=sm-a[ i ];
end;
if a[ i ]>0 then
begin
inc(kd);
sd:=sd+a[ i ];
end;
end;
writeln('Средний рост мальчиков=',sm/km:0:0);
writeln('Средний рост девочек=',sd/kd:0:0);
end.