Способы связи
- 
- 
- Оказываем услуги
Главные менеджеры
Менеджер Елена Картиза - помогает в оформлении заказов на сайте. Ей можно задать любые интересующие вас вопросы.
Менеджер Галина Евсютина - специалист отдела качества. Проверяет выполненные работы на соответствие всем требованиям.
Менеджер Анастасия Ветрицина - подберет специалиста, который займется выполнением вашего задания.
Справочник студента
Проконсультируем прямо сейчас
Мы онлайн в наших сообществах. ПН - ВС 08:00-22:00
Дан массив, состоящий из записей. Каждая запись содержит два поля: - табельный номер (целое число
От нашего клиента с логином jvNJqH на электронную почту пришел вопрос: "Дан массив, состоящий из записей. Каждая запись содержит два поля: - табельный номер (целое число" это здание мы отнесли к разделу ЕГЭ (школьный). Так как клиент является зарегистрированным пользователем нашего сайта, то мы бесплатно предоставим ответ.
ЕГЭ (школьный) - довольно сложный раздел, здесь действительно попадаются вопросы, которые даже у специалиста с законченным высшим образованием поставят в тупик при подготовке правильного ответа. Но мы известны тем, что сложности нас не останавливают, а наоборот развивают и расширяют наши знания.
Вы спрашивали Дан массив, состоящий из записей. Каждая запись содержит два поля: - табельный номер (целое число? - отвечаем:
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.
