Написать программу на заполнение 2-х массивов (рост девочек и рост мальчиков). Определить средний рост мальчиков. Подсчитать количество девочек, у которых рост выше среднего роста мальчиков.

unit math;

var

d, m:array[1 ... 20] of integer;

sr:real;

kol, s:integer;

Begin

for i:=1 to 20 do begin

d[i]:=RandomRange (140,180) ;

writeln ('Рост ', i,'-ой девочки = ', d[i],' см') ;

m[i]:=RandomRange (140,190) ;

writeln ('Рост ', i,'-го мальчика = ', m[i],' см') ;

end;

s:=0; sr:=0; kol:=0;

for i:=1 to 20 do s:=s+m[i];

sr:=s/20;

writeln ('Средний рост мальчиков = ', sr,' см') ;

for i:=1 to 20 do

if d[i]>sr then kol:=kol+1;

writeln ('Колличество девочек превышающий средний рост мальчиков = ', kol) ;

End.