Упорядочить студентов

Посмотреть архив целиком
program studenti;

{$APPTYPE CONSOLE}

uses
SysUtils;
type stud=record
fam:string[20];
imia:string[20];
curs:1..6;
end;
studmas=array[1..25] of stud;
var st:studmas;
n,i,j:integer;
buf:stud;
begin
writeln('Vvedite kolichestvo studentov');
readln(n);
for i:=1 to n do begin
writeln('Vvedite famaliu');
readln(st[i].fam);
writeln('Vvedite imia');
readln(st[i].imia);
writeln('Vvedite curs');
readln(st[i].curs);
end;
writeln;
writeln('Isxodnie dannie');
writeln('Familia Imia Kurs ');
for i:=1 to n do
writeln(st[i].fam,' ',st[i].imia,' ',st[i].curs);

{Массив студентов по алфавиту}
writeln;
writeln('Studenti po alfavitu');
for j:=1 to n-1 do
for i:=1 to n-j do
if st[i].fam>st[i+1].fam then begin
buf:=st[i];
st[i]:=st[i+1];
st[i+1]:=buf;
end;

writeln('Familia Imia Kurs');
for i:=1 to n do writeln(st[i].fam,' ',st[i].imia,' ',st[i].curs);
readln;
end.





Чтобы не видеть здесь видео-рекламу достаточно стать зарегистрированным пользователем.
Чтобы не видеть никакую рекламу на сайте, нужно стать VIP-пользователем.
Это можно сделать совершенно бесплатно. Читайте подробности тут.