uses crt;
var a:array[1..100] of byte;
n,i,k:byte;
sr:real;
begin
clrscr;
writeln('Введите количество человек');
readln(n);
writeln('Введите их вес');
for i:=1 to n do
begin
write('Вес ',i,' -го человека равен ');
readln(a[i]);
end;
writel('Средний вес полных людей равен ');
k:=0;
sr:=0;
for i:=1 to n do
if a[i]>100 then
begin
sr:=sr+a[i];
inc(k);
end;
writeln(sr/k:7:2);
writel('Средний вес неполных людей равен ');
k:=0;
sr:=0;
for i:=1 to n do
if a[i]<=100 then
begin
sr:=sr+a[i];
inc(k);
end;
writeln(sr/k:7:2);
readln;
end.