Відомо зріст кожного з 14 учнів групи. Зріст хлопчиків умовно заданий від’ємними числами. Визначити середній зріст хлопчиків і середній зріст дівчаток. (зріст – це числа від 140 до 190 см) ДАЮ 100 поинтов. посчитайте ПРАКТИЧЕСКАЯ ПО ИНФОРМАТИКЕ(НУЖНО НАПИСАТЬ ПРОГРАММУ)

:

var a: array [1. . 14] of integer;

i,sm,km,sd,kd: integer;

begin

sm:=0;

km:=0;

sd:=0;

kd:=0;

for i:=1 to 14 do

begin

read(a[i]);

if a[i]>0 then

begin

sd:=sd+a[i];

kd:=kd+1

end

else

begin

sm:=sm+abs(a[i]);

km:=km+1

end

end;

for i:=1 to 14 do write(a[i],' ');

writeln;

writeln ('m ',sm/km);

writeln ('d ',sd/kd)

end.