Записи. Сколько учеников могут заниматься в баскетбольной секции, если рост баскетболиста должен быть больше 170 см - Pascal

Формулировка задачи:

В таблице хранятся следующие данные об учениках: фамилия, имя , отчество, рост, масса. Вычислит средний рост учеников, рост самого высокого и самого низкого ученика. Сколько учеников могут заниматься в баскетбольной секции, если рост баскетболиста должен быть больше 170 см.

Решение задачи: «Записи. Сколько учеников могут заниматься в баскетбольной секции, если рост баскетболиста должен быть больше 170 см»

textual
                            Листинг программы 
                        

                            sr:=0;
for i:=1 to N do sr:=sr+z[i].rost;
sr:=sr/N;
writeln('Средний рост - ',sr:0:2);
k:=0;
for i:=1 to N do if z[i].rost > 170 then inc(k);
writeln(k,' учеников(а)');
                        