Дан массив, состоящий из записей. Каждая запись содержит два поля: - табельный номер (целое число

Постоянный пользователь нашего ресурса написал нам почту в 20:22 с просьбой предоставить развернутый ответ на его вопрос. Наши эксперты отнесли этот вопрос к разделу Разное. Для ответа был привлечен один из опытных специалистов, который занимается написанием студенческих работ.

Цитируем вопрос ваш вопрос

Разбор вопроса и ответ на него

Раздел 'ЕГЭ (школьный)', к которому был отнесён этот вопрос является не простой рубрикой. Для подготовки ответа на вопросы из этой рубрики специалист должен обладать широкими познаниями в различных научных областях. Однако в нашей компании таковые имеются.

Вы спрашивали:

Дан массив, состоящий из записей. Каждая запись содержит два поля: - табельный номер (целое число

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

var a:array[1..1000] of record
                    num:integer;
                    lastn:string;
                   end;
    n,i,k,k1,t:integer;
begin
readln(n);//кол-во табельных номеров
for i:=1 to n do
  begin
    readln(a[i].num);readln(a[i].lastn);
  end;
  k:=n;//k:word; или k:integer;
  repeat
    k1:=0;//кол-во обменов
    for i:=2 to k do
      if a[i].num>a[i-1].num then //строгое убывание
        begin
           inc(k1);
           t:=a[i].num;
           a[i].num:=a[i-1].num;
           a[i-1].num:=t;
         end;
      k:=k-1;
   until k1=0;
   for i:=1 to n do
    write(a[i].num,,a[i].lastn,);
end.

К нам на почту приходит много вопросов. Мы стараемся отвечать на все. Однако вы должны понимать, что большая загруженность увеличивает время ответа. Сейчас среднее время ответа равно 14:2.