3. Заданы фамилии и рост учащихся 10-го класса. Вывести фамилии тех учащихся, рост которых меньше среднего роста по классу.

Слегка изменим и дополним нашу программу из задания 2. Объявим ещё один массив констант, который будет содержать фамилии учеников в таком же порядке, как представлен их рост в массиве rost. Далее в цикле при нахождении роста, который меньше среднего, будет выводить фамилию соответствующего учащегося.

var k: integer;
    sum, sr_rost: real;
const rost: array[1..10]
 of real = (155, 160, 170, 180, 163, 172, 167, 164, 160, 169);
const fam: array[1..10]
 of string = ('Иванов', 'Круглов', 'Бондаренко', 'Петров', 'Герасимов',
  'Марченко', 'Захаров', 'Лебедев', 'Семенов', 'Макаров');
begin
 for var i := 1 to 10 do
  sum := sum + rost[i];
 sr_rost := sum / 10;
 writeln('Средний рост: ', sr_rost);
 k:=0;
 for var i := 1 to 10 do
  if rost[i] < sr_rost then
    writeln(fam[i]);
end.