Составьте программу нахождения наибольшего значения роста у двух членов школьной баскетбольной команды (рост спортсменов вводится с клавиатуры).

Uses

Crt;

Var

i, N, kol: byte;

sum_rost, sr_rost: real;

team: array[1 ... 100] of real;

Begin

sum_rost : = 0.0;

sr_rost : = 0.0;

kol : = 0;

write ('Введите количество членов команды') ;

read (N) ;

writeln ('Введите рост каждого члена команды') ;

for i : = 1 to N do

begin

readln (team[i]) ;

sum_rost : = sum_rost + team[i];

end;

sr_rost : = sum_rost / N;

for i : = 1 to N do

if (team[i] > sr_rost) then

kol : = kol + 1;

writeln ('Количество членов команды, рост которых превышает средний по команде (', sr_rost:4:2, ') ') ;

write (' равно ', kol) ;

End.

Прошу. Я надеюсь надо было на паскале написать?)