Склавиатуры вводятся: количество учеников в классе, затем рост каждого. найти: 1. рост самого маленького 2. рост самого высокого. .

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.