Вывести фамилии пассажиров по алфавиту - Pascal ABC

Формулировка задачи:

Вводятся фамилии пассажиров и масса багажа(двузначное число). Вывести 2 списка:1-пассажир-багаж в алфавитном порядке, 2-пассажир-багаж по убыванию багажа,использовав метод пузырька.

Код к задаче: «Вывести фамилии пассажиров по алфавиту - Pascal ABC»

textual
type pass=record
          fam:string;
          bag:integer;
          end;
var a:array[1..20] of pass;
    n,i,j:integer;
    x:pass;
begin
repeat
writeln('Введите число пассажиров от 2 до 20 n=');
readln(n);
until n in [2..20];
for i:=1 to n do
 begin
  writeln('Пассажир ',i);
  write('Фамилия: ');
  readln(a[i].fam);
  repeat
  write('Вес багажа, двузначное число: ');
  readln(a[i].bag);
  until a[i].bag in [10..99];
 end;
for i:=1 to n-1 do
for j:=1 to n-i do
If a[j].fam>a[j+1].fam then
 begin
  x:=a[j];
  a[j]:=a[j+1];
  a[j+1]:=x
 end;
writeln('Список по алфавиту');
for i:=1 to n do
writeln(a[i].fam,' ',a[i].bag);
for i:=1 to n-1 do
for j:=1 to n-i do
If a[j].bag<a[j+1].bag then
 begin
  x:=a[j];
  a[j]:=a[j+1];
  a[j+1]:=x
 end;
writeln('Список по убыванию веса багажа');
for i:=1 to n do
writeln(a[i].fam,' ',a[i].bag);
end.

10   голосов, оценка 4.300 из 5


СОХРАНИТЬ ССЫЛКУ
Похожие ответы