Определить возраст самого юного студента

[rector2]

Даны сведения о возрасте 15 студентов из массива А[15].
1) Определить возраст самого юного студента, его порядковый номер и возраст самого старшего студента, его порядковый номер.
2) Определить количество студентов старше 18 лет, сформировать из них новый массив B.
3) Определить средний возраст студентов группы.

[Stilet]

Показывай как вводишь )

[Sciv]

Ну если уж ректор такие вопросы задает - чего ждать от студентов?

[rector2]

program 1;

const
n=15;
var
a:array[1..n]of integer;
b:array[1..n]of integer;
i,min,max:integer;


begin

я понятия не знаю что дальше делать((

[Sciv]

Ну по первой задаче - что-то типа такого:

var i_min,i_max: integer; {хотя тут везде и byte обойтись можно}
begin
  min:=a[1];
  max:=a[1];
  i_min:=1;
  i_max:=1;
  for i:=2 to n do
    if a[i]>=a[i-1] then begin
      i_max:=i;
      max:=a[i];
    end
    else begin
      i_min:=i;
      min:=a[i];
    end;
end;

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

Для второй задачи критерий:

if a[i]>18 then begin
  b[j]:=a[i];
  inc(j);
end;

Третья задача - в цикле суммируем элементы и делим на n

[Poma][a]

Что-то мне подсказывает что тип не Integer будет..

Sciv, а зачем Вам хранить напечатанную копию 137 страницы из Войны и Мира. Если Вы и так носите его с собой?)

[rector2]

вы не могли бы написать подробнее, почти ничего не понимаю

[Sciv]

Сообщение от Poma][a

Что-то мне подсказывает что тип не Integer будет..

Почему? Там же массив возрастов... можно, в принципе, и байтом обойтись, как я предлагал - навряд ли найдется студент младше нуля или старше 256... сорри, 255 лет

Но на всякий случай, для отдельных долгожителей, согласен на Word

[Stilet]

Что-то мне подсказывает что тип не Integer будет..

Возможно, хотя врядли возраст дробно будут рассчитывать. В методичках обычно годами считают.

[Sciv]

Сообщение от Poma][a

Sciv, а зачем Вам хранить напечатанную копию 137 страницы из Войны и Мира. Если Вы и так носите его с собой?)

Роман, а вдруг приспичит...