program Moy_Rang;
Const n=30;
Var Nom : Array [1..n, 1..2] of String [50];
Note : Array [1..n, 1..4] of Real;
j, i, a, b : Integer;
Begin
For i:=1 To n Do
Begin
Writeln ('Elèves n° ', i);
Writeln ('Nom : ');
Readln (nom[i,1]);
Writeln ('Prénom : ');
Readln (nom[i,2]);
For j:=1 To 2 Do
Repeat
Writeln ('Note ', j, ' : ');
Readln (note[i,j]);
Until (note[i,j]>=0) and (note[i,j]<=20);
note[i,3] := (note[i,1]+note[i,2]*2)/3;
End;
For i:=1 To n Do
Begin
note[i,4]:=1;
For j:=1 To n Do
If note[i,3]<note[j,3] Then note[i,4]:=note[i,4]+1;
End;
Writeln ('Nom', 'Prénom':15, 'Note 1':10, 'Note 2':10, 'Moyens':10, 'Rangs':10);
For i:=1 To n Do Begin
a:=Length (nom[i,1]);
b:=Length (nom[i,2]);
Writeln (nom[i,1],nom[i,2]:(12-a+b),note[i,1]:(15-b):2,note[i,2]:10:2,note[i,3]:10:2,trunc(note[i,4]):9);
End;
End.
cHJvZ3JhbSBNb3lfUmFuZzsKQ29uc3Qgbj0zMDsKVmFyIE5vbSA6IEFycmF5IFsxLi5uLCAxLi4yXSBvZiBTdHJpbmcgWzUwXTsKTm90ZSA6IEFycmF5IFsxLi5uLCAxLi40XSBvZiBSZWFsOwpqLCBpLCBhLCBiIDogSW50ZWdlcjsKQmVnaW4KRm9yIGk6PTEgVG8gbiBEbwpCZWdpbgpXcml0ZWxuICgnRWzDqHZlcyBuwrAgJywgaSk7CldyaXRlbG4gKCdOb20gOiAnKTsKUmVhZGxuIChub21baSwxXSk7CldyaXRlbG4gKCdQcsOpbm9tIDogJyk7ClJlYWRsbiAobm9tW2ksMl0pOwpGb3Igajo9MSBUbyAyIERvClJlcGVhdApXcml0ZWxuICgnTm90ZSAnLCBqLCAnIDogJyk7ClJlYWRsbiAobm90ZVtpLGpdKTsKVW50aWwgKG5vdGVbaSxqXT49MCkgYW5kIChub3RlW2ksal08PTIwKTsKbm90ZVtpLDNdIDo9IChub3RlW2ksMV0rbm90ZVtpLDJdKjIpLzM7CkVuZDsKRm9yIGk6PTEgVG8gbiBEbwpCZWdpbgpub3RlW2ksNF06PTE7CkZvciBqOj0xIFRvIG4gRG8KSWYgbm90ZVtpLDNdPG5vdGVbaiwzXSBUaGVuIG5vdGVbaSw0XTo9bm90ZVtpLDRdKzE7CkVuZDsKV3JpdGVsbiAoJ05vbScsICdQcsOpbm9tJzoxNSwgJ05vdGUgMSc6MTAsICdOb3RlIDInOjEwLCAnTW95ZW5zJzoxMCwgJ1JhbmdzJzoxMCk7CkZvciBpOj0xIFRvIG4gRG8gQmVnaW4KYTo9TGVuZ3RoIChub21baSwxXSk7CmI6PUxlbmd0aCAobm9tW2ksMl0pOwpXcml0ZWxuIChub21baSwxXSxub21baSwyXTooMTItYStiKSxub3RlW2ksMV06KDE1LWIpOjIsbm90ZVtpLDJdOjEwOjIsbm90ZVtpLDNdOjEwOjIsdHJ1bmMobm90ZVtpLDRdKTo5KTsKRW5kOwpFbmQu