Здравствуйте форумчане. Попалась такая задача, помогите разобраться.
Заданы три строковых массива a,b,c- фамилия имя отчество. Необходимо отсортировать массивы либо по Имени либо по Фамилии или Отчеству. Вывести оба массива.
.............................
procedure sort(var m: TMass; - это массив, по которому будет сортировка
var a, b: TMass); - над этими массивами будет проводится синхронная с m сортировка
...................................................
begin
...................
if надо переставить элементы массива then
begin
exchange(m[i], m[j]); - это нужно по логике сортировки
{синхронно переставляем элементы в других массивах}
exchange(a[i], a[j]);
exchange(b[i], b[j]);
end;
...................
end;
begin
sort(a, b, c); - сортировка по имени
sort(b, a, c); - сортировка по отчеству
sort(c, a, b); - сортировка по фамилии
end.