Turbo Pascal.Записи

[Андрюха74]

Помогите составить программу, что-то не получается:conf used:.......
Задача:
По данным свединиям об учениках класса определитьсредний рост мальчиков и средний вес девочек.Кто из мальчиков самый высокий?......
если сможете

[Grag]

Для начала опиши структуру данных типа запись, например так:

Type
  Persona=record
                sex:char;
                rost:byte; //в сантиметрах допустим...
                ves:byte; //в кг, например...
              end;

А потом уже работай с этими записями...

[Stilet]

Андрюха74

Покажи как ты вводишь данные в эти записи.

[Андрюха74]

я не знаю как описывать, мне сказали просто сделать ее или оставят на 2 год

[_Engine_]

Вот счастливчик, оставайся, заодно и узнаешь!

[Stilet]

или оставят на 2 год

Ну а чо? тоже вариант.
Вот допустим учитывая Grag'a можно написать:

var a:array[1..10] of Persona;
 k,i:integer;
begin
 k:=1;
 for i:=1 to 10 do begin
  Write('Введи Персону');
 {Ввели боя или герлу}
  Read(a[i].sex,a[i].rost,a[i].ves);
 {Выснили выше ли он чем все предидущие введенные}
  if a[k].rost<a[i].rost then k:=i;
 end;
{А терь выведем того чудика}
Write('Самый длинный - ',a[k].ves,' ',a[k].Sex,' ',a[k].rost);
readln;
end.

Писал с потолка, так что тебе домзадание - проверить.

[Андрюха74]

напишу пожалуйста всю программу если тебе не сложно

[Stilet]

А это итак вся программа.
Просто вверху допиши то что Grag написал.