массив записей (В группе школьников n человек. про каждого известно фамилия, рост, вес...)

[tata7393]

пожалуйста помогите решить задачу, очень срочно...
В группе школьников n человек. про каждого известно фамилия, рост, вес. Найти в классе самого толстого мальчика.
Вот код

type uchenik = record
    FIO: string[25];
    POL: string[25];
    VES: integer;
    max: integer;
  end;
var A: array[1..100] of uchenik;
  i, n: integer;
begin
  write('Введите кол-во учащихся: ');
  readln(n);
  for i := 1 to n do
  begin
    writeln('Введите информацию о ', i, '-ом ученике');
    write('Фамилия: ');
    readln(A[i].FIO);
    write('Пол: ');
    readln(A[i].POL);
    write('Вес: ');
    readln(A[i].VES);
  end;
  A[i].max := A[1].VES;
  Writeln('Самый толстый мальчик в классе:');
  for i := 2 to n do begin
    if A[i].POL = 'm' then
      if A[i].VES > A[i].max then
        A[i].max := A[i].VES;
    writeln(A[i].FIO, ' имеет вес: ', A[i].max, ' кг ');
  end;
end.

Не получается связать с полом, так как надо учитывать только мальчиков...




___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[Serge_Bliznykov]

а почему у Вас POL строковый, да ещё и 25 символов длиной?!
на мой взгляд POL должен быть либо символом из заданного строго ограниченного набора ('F','M') или ('М','Ж') или ('М', 'Д') или числом (1-мальчик, 2-девочка).
у Вас же можно в это поле целую поэму написать! Зачем?!!


предлагаю такой вариант решения:

type uchenik = record
    FIO: string[25];
    POL: byte; {(1-мальчик, 2-девочка)}
    VES: integer;
    max: integer;
  end;
...

  ..... <ввод или чтение данных>

  maxFatBoyIndex := -1;  {изначально нет данных о максимальном весе}
  for i := 1 to n do begin
    if A[i].POL = 1 {если мальчик} then begin
       if  maxFatBoyIndex<0 then maxFatBoyIndex := i
       else
          if A[i].VES > A[maxFatBoyIndex].VES then maxFatBoyIndex := i
    end;
  end;

  if  maxFatBoyIndex < 0 then WriteLn('Пацанов в классе вообще нет!')
  else 
    Writeln('Самый толстый мальчик в классе: ', A[maxFatBoyIndex].FIO, 
                   ' имеет вес ', A[maxFatBoyIndex].VES   );

...

[tata7393]

Спасибо, я уже вчера сделала данную программу))))