Опубликован рукописный конспект лекций https://drive.google.com/file/d/1sCD4Dt4RNLl8_V3HKYBuLU0lo2MFU4Ia/view?usp=sharing
Станислав Станиславович, можно узнать, будет ли выложена программа экзамена? Да,и нельзя ли попросить вас выложить все шпаргалки за учебный год?
Выкладываю программу экзамена: Program1Sem2018-19.pdf (196,6 КБ)
Раздаточные материалы, выданные на лекциях:
Шпаргалка PascalABC.NET 2018.pdf (130,2 КБ)
Cycles 2018.pdf (185,9 КБ)
Arrays2018.pdf (121,1 КБ)
SortArrays2018.pdf (121,5 КБ)
Последовательности PascalABCNET 2018.pdf (156,2 КБ)
На экзамене можно будет использовать только официальную шпаргалку PascalABC.NET 2018
Всех студентов - с Новым годом! И - успешной сессии!
В вашем коде всё неправильно. Во-первых, мы на лекциях использовали массив объектов класса, а не записей. Во-вторых, основная ошибка у Вас -
if less(a[j], a[j - 1]) then
а надо
if less(a[ind[j]], a[ind[j - 1]]) then
А менять местами надо индексы, а не элементы.
Посмотрите конспект лекций из первого поста - я его не зря выкладывал!
Внимание!
По согласованию с дирекцией начало экзамена 9 и 10 января переносится на 9.00