Question

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

Answer 1

type

 Str = record

         fio: string;

         h: byte;

       end;

var

 base: array of Str;

 i,sum,n,err:integer;

 

begin

write('Число учеников: '); readln(n);

setlength(base,n);

sum:=0;

writeln('Введите фамилию и рост через "space": ');

for i:=0 to n-1 do

 begin

   write(i+1:4,'. ');

   readln(base[i].fio);

   

   val(copy(base[i].fio,

            pos(' ',base[i].fio)+1,  

            length(base[i].fio)-pos(' ',base[i].fio)),

       base[i].h,  

       err);

   delete(base[i].fio,

          pos(' ',base[i].fio),

          length(base[i].fio));

   sum:=sum+base[i].h;

 end;

writeln('Средний рост: ',sum/n:4:1);

for i:=0 to n-1 do

 if base[i].h<sum/n then

   writeln(base[i]);

end.

Answer 2

Конечно! Чтобы решить эту задачу, вам потребуется знать фамилии и рост каждого ученика в 10-м классе. Предположим, что у вас есть списки с фамилиями и ростом учащихся. Вот пример кода на языке Pascal, который поможет вам решить эту задачу:

pascalCopy code
program StudentsHeight;

const
  MAX_STUDENTS = 100; // Максимальное количество учащихся

type
  TStudent = record
    surname: string;
    height: integer;
  end;

var
  students: array[1..MAX_STUDENTS] of TStudent;
  numStudents, totalHeight, averageHeight: integer;
  i: integer;

begin
  // Ввод количества учащихся
  writeln('Введите количество учащихся: ');
  readln(numStudents);

  // Ввод фамилий и роста каждого учащегося
  for i := 1 to numStudents do
  begin
    writeln('Введите фамилию учащегося ', i, ': ');
    readln(students[i].surname);
    writeln('Введите рост учащегося ', i, ': ');
    readln(students[i].height);
    totalHeight := totalHeight + students[i].height;
  end;

  // Вычисление среднего роста
  averageHeight := totalHeight div numStudents;

  // Вывод фамилий учащихся с ростом ниже среднего
  writeln('Учащиеся с ростом ниже среднего:');
  for i := 1 to numStudents do
  begin
    if students[i].height < averageHeight then
      writeln(students[i].surname);
  end;

  readln;
end.

В этом примере программа сначала запрашивает количество учащихся, а затем последовательно запрашивает фамилию и рост каждого ученика. Затем она вычисляет средний рост по формуле сумма ростов / количество учащихся. После этого программа выводит фамилии учащихся, рост которых меньше среднего роста.

Пожалуйста, учтите, что этот пример кода предназначен для языка Pascal. Если вы используете другой язык программирования, вам нужно будет адаптировать код для своей среды разработки.