Задание на "записи". Описать группу учеников. Распечатать эти данные в виде таблицы и найти нужных. Free Pascal

[fleur*]

тут вот такое задание по "записям". пыталась как-то сделать, но не понимаю...или что-то не учла. или плохо поняла эту тему=/
если сможете посмотрите задачку. задача во Free Pascal


Описать группу учеников, включив о них следующие данные: имя, пол, рост, возраст. Распечатать эти данные в виде таблицы и выдать имя и рост самого высокого мальчика, самой маленькой девочки и средний рост группы.

заранее спасибо!!

______________
Название темы по правилам форума должно адекватно отражать суть решаемой задачи/проблемы.
На первый раз я исправил.
В последующем, темы с подобным названием ("программисты отзовитесь)") будут закрываться или удаляться,
а автор такой темы будет получать штрафные баллы.
Учтите это на будущее.

Модератор.

[SovereignSun]

Проще всего с SQL осуществить

[whatever]

Сообщение от fleur*

тут вот такое задание по "записям". пыталась как-то сделать, но не понимаю...или что-то не учла. или плохо поняла эту тему=/
если сможете посмотрите задачку. задача во Free Pascal


Описать группу учеников, включив о них следующие данные: имя, пол, рост, возраст. Распечатать эти данные в виде таблицы и выдать имя и рост самого высокого мальчика, самой маленькой девочки и средний рост группы.

заранее спасибо!!

type
  Tstudent=record
    name:string;
    sex:char; //типа м или ж
    height:real;
    age:byte;
  end;

  Tstudents=array of Tstudent;

procedure print(m:Tstudents);
var
  max,maxi,min,mini,avg,i:integer;
begin
  max:=0;
  min:=9999;
  avg:=0;
  for i:=0 to high(m) do
    begin
      write(m[i].name,' ',m[i].sex,' ',m[i].height,' ',m[i].age);
      writeln;
      avg:=avg+m[i].height;
      if (m[i].sex='м')and(m[i].height>max) then
        begin
          max:=m[i].height;
          maxi:=i;
        end;
      if (m[i].sex='ж')and(m[i].height<min) then
        begin
          min:=m[i].height;
          mini:=i;
        end;
    end;

  avg:=avg/length(m);
  writeln('Самый здоровый тип: ',m[maxi].name);
  writeln('Cамая маленькая девочка ',m[mini].name);
  writeln('Cредний рост группы: ',avg);
end;

Ввод данных - домашнее задание

Сообщение от SovereignSun

Проще всего с SQL осуществить

Не понял. sql+delphi, sql+php? По-моему ни разу не проще. Да и потом, студенту не приходится выбирать, на чем писать, за редким исключением, и это явно не тот случай.

[fleur*]

большое спасибо!!)) вы мне очень помогли)