Сортировка массива персон по возрасту на Pascal
Сортировка массива персон по возрасту...
type
Person = record
name: string;
age: integer;
end;
const n=5;
var
a: array [1..n] of Person;
begin
a[1].name :='Попова'; a[1].age := 22;
a[2].name :='Петрова'; a[2].age := 15;
a[3].name :='Крылов'; a[3].age := 23;
a[4].name :='Иванов'; a[4].age := 21;
a[5].name :='Сидоров'; a[5].age := 17;
for var i:=n downto 2 do
for var j:=1 to i-1 do
if a[j+1].age<a[j].age then
Swap(a[j+1],a[j]);
writeln('Массив персон, отсортированный по возрастанию возраста:');
for var i:=1 to n do
writeln(a[i].name:8,a[i].age:4);
end.
10.02.2015, 11:05 -
Категория: Статьи » Программирование » Pascal