Сортировка массива персон по возрасту на 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.



Просмотров: 1122
10.02.2015, 11:05 -

Категория: Статьи » Программирование » Pascal