Решение задач сортировки и выборки на языке Pascal

Program Lab3;
Uses
Crt;
Label
M1;
Var
i, j, n, m: integer;
S : array [1..100] of real;
A :array [1..100, 1..100] of real;
T: real;
Flag, Sravn, Peremesh: Byte;
Begin
ClrScr;
WriteLn('Vvedite razmer stroki ');
...

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

Задание:
Задан массив целых или действительных чисел А=(а(1)…а(n)).
Требуется переставить элементы массива так, чтобы они были упорядочены по определенному признаку. Определить и проанализировать число сравнений и число перемещений при упорядочении исходного массива. В качестве основы для решения задачи использовать алгоритмы сортировки или упорядочения. Исходные алгоритмы сортировок и задания приведены в вариантах заданий.
Вариант 4:
1. Алгоритм сортировки – 3) сортировка обмена, при которой возобновление простора осуществляется с начала массива.
2. Задание по упорядочению – в действительной матрице размера n x m упорядочить строки матрицы по убыванию сумм элементов строк.

Вывод
Научился использовать возможности алгоритмов сортировки. Накопил опыт по использования АЯ и отладке программ по упорядочению элементов множеств и сортировки массивов.
Результаты полученные в ходе работы программы совпадают с теми, что были подсчитаны вручную с помощью калькулятора. Это может свидетельствовать правильной работоспособности программы и алгоритма. Программа выполняет сортировку массива, задаваемого пользователем, определенным методом и способом. Метод заключается в сортировке обменом, при которой возобновление массива начинается сначала. При этом массив упорядочивается по убыванию сумм элементов строки.

В работе содежится исходный код, описан математический алгоритм + графическая блоксхема.