program exam25;

{$APPTYPE CONSOLE}

uses
SysUtils;

type
zapis=record
name:string;
Reyting:integer;
end;
arc=array [1..20] of zapis;
var i,n,k:integer;
s,a:arc;
procedure SORT(var a:arc; n:byte);
Var j,i:byte;
p:zapis;
begin
for i:=1 to n-1 do
for j:=1 to n-i do
if a[j].name > a[j+1].name then
begin
P:=A[j];
A[j]:=A[j+1];
A[j+1]:=p;
end;
end;
Begin
write('vvedite kol-vo studentov:');
readln(n);
for i:=1 to n do begin
write ('name: ');
readln (a[i].name);
write ('Reyting');
readln(a[i].reyting);
end;
WRITELN('**************');
for i:=1 to n do
begin
writeln ('name:',a[i].name);
writeln ('Reyting:',a[i].reyting);
end;
WRITELN('***************');
writeln('sortirovka:');
sort(a,n);
for i:=1 to n do
if a[i].reyting>=30 then begin
writeln ('name:',a[i].name);
writeln ('Reyting:',a[i].reyting);
end;
readln;
end.





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