program ReverseStringArraySorting; var stringArray: array of String; arraySize, i, j: Integer; temp: String; begin // Ввод размера массива Write('Введите количество строк: '); ReadLn(arraySize); // Выделение памяти для динамического массива строк SetLength(stringArray, arraySize); // Ввод строк с клавиатуры for i := 0 to arraySize - 1 do begin Write('Введите строку ', i + 1, ': '); ReadLn(stringArray[i]); end; // Сортировка массива строк в обратном алфавитном порядке for i := 0 to arraySize - 2 do begin for j := i + 1 to arraySize - 1 do begin if CompareStr(stringArray[i], stringArray[j]) < 0 then begin temp := stringArray[i]; stringArray[i] := stringArray[j]; stringArray[j] := temp; end; end; end; // Вывод отсортированного массива WriteLn('Отсортированный массив строк в обратном алфавитном порядке:'); for i := 0 to arraySize - 1 do begin WriteLn(stringArray[i]); end; end.

Два end могут писаться когда закрывается тело цикла или условия и конец программы например. Либо закрывается тело цикла и тело вложенного цикла.

Проверьте ещё раз код. Такая ошибка выходит когда вы обращаетесь к несуществующему элементу массива.

@@losev-it спасибо большое, попробую.

Этим количеством будет сумма счётчиков цикла сортировки. А для количества перемещений нужна ещё одна переменная которая в условии будет прибавлять 1

@@losev-it Да, на словах понимаю, с реализацией проблема, но спасибо!)

@@losev-it Счетчики цикла сортировки тоже ведь надо считать отдельной переменной?

Можно отдельной, можно просто write(a+b)

@@losev-it Еще раз спасибо)

Точно так же как в видео...

@@losev-it ваше видео очень помогло, просто я затупила и написала (15)-15 , а надо было (31)-15

Не понимаю к чему вопрос...и о чём...решить этот пример можно по правилам математики)))

@@losev-it ):

через присваивание