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

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

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

Вывести результат в файл!

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

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

uses crt;
const n=4;
type rec=record
      fname,lname,tname:string;
      rost,ves:integer;
     end;
var x:array[1..n] of rec;
    i,k,min,max:integer;
    sr:real;
    f:text;
begin
ClrScr;
for i:=1 to n do
 begin
  Write(' Fname: ');
  Readln(x[i].fname);
  Write(' Lname: ');
  Readln(x[i].lname);
  Write(' Tname: ');
  Readln(x[i].tname);
  Write(' Rost: ');
  Readln(x[i].rost);
  Write(' Ves: ');
  Readln(x[i].ves);
 end;
Writeln;
sr:=0;
k:=0;
for i:=1 to n do
 begin
  if x[i].rost>=170 then
   inc(k);
  sr:=sr+x[i].rost;
 end;
sr:=sr/n;
Writeln('--------------------------------------------------');
Writeln('||  Lname  |  Fname  |  Tname  |  Rost  |  Ves  ||');
Writeln('--------------------------------------------------');
for i:=1 to n do
 Writeln('||',x[i].fname:9,'|',x[i].lname:9,'|',x[i].tname:9,'|',x[i].rost:8,
          '|',x[i].ves:7,'||');
Writeln('--------------------------------------------------');
Assign(f,'f.txt');
Rewrite(f);
Writeln(f,'Sr rost: ',sr:0:1);
Writeln(f,'Kol: ',k);
max:=x[1].rost;
min:=x[1].rost;
for i:=2 to n do
 begin
  if x[i].rost>max then
   max:=x[i].rost;
  if x[i].rost<min then
   min:=x[i].rost;
 end;
Writeln(f,'Visoky: ',max);
Writeln(f,'Mlenkiy: ',min);
close(f);
Writeln('Press Enter: ');
Readln;
end.

Объяснение кода листинга программы

Создается переменная типа rec, которая представляет собой запись с полями fname, lname, tname, rost и ves.
Создается массив x типа rec, который будет содержать данные о студентах.
Создаются три переменные i, k и min для отслеживания количества студентов, удовлетворяющих условию (рост больше 170 см), среднего роста студентов и минимального роста студентов соответственно.
Создается переменная sr для хранения среднего роста студентов.
В цикле for считываются данные о студентах и сохраняются в соответствующих полях переменной x.
В цикле for проверяется условие x[i].rost>=170. Если оно выполняется, то значение переменной k увеличивается на единицу. Переменная sr также обновляется, добавляя к ней значение x[i].rost.
После завершения цикла, sr делится на n (количество студентов) для получения среднего роста.
Выводится информация о студентах, включая их имя, фамилию, имя, рост и количество студентов, удовлетворяющих условию.
Записывается информация о среднем росте и минимальном росте студентов в файл f.
Закрывается файл f.
Ждется ввод пользователя.