Технический форум - Помогите решить задачу

Цитата:

Сообщение от Юля_86 (Сообщение 849208)

нужно решить 1 номер!

Нужно, так нужно, что уж тут поделаешь...

Код:

Type

 School=Record

         Fam:String[10];

         Class:Byte;

         Mark:Byte;

        End;

Const

 Pup:Array[1..10] of School=((Fam:'Bull';  Class:10; Mark:5),

                             (Fam:'Virt';  Class: 9; Mark:4),

                             (Fam:'Geits'; Class:11; Mark:3),

                             (Fam:'Knut';  Class:11; Mark:5),

                             (Fam:'Kitty'; Class: 9; Mark:2),

                             (Fam:'Barby'; Class:10; Mark:4),

                             (Fam:'Blin';  Class:10; Mark:3),

                             (Fam:'Axis';  Class: 9; Mark:5),

                             (Fam:'Trus';  Class:10; Mark:4),

                             (Fam:'John';  Class:11; Mark:2));

Var

 i,j,Max:Byte;

 n,Aver:Array[1..3] of Byte;



Begin

 For i:=1 to 3 do

  begin

   n[i]:=0;

   Aver[i]:=0;

  end;

 Max:=0;

 For i:=1 to 10 do

  With Pup[i] do

   If Mark>Max then Max:=Mark;

 For i:=1 to 10 do

  If Pup[i].Class=9 then

   begin

    Inc(n[1]);

    Inc(Aver[1],Pup[i].Mark);

   end

  else

  If Pup[i].Class=10 then

   begin

    Inc(n[2]);

    Inc(Aver[2],Pup[i].Mark);

   end

  else

  begin

   Inc(n[3]);

   Inc(Aver[3],Pup[i].Mark);

  end;

 Write('Averaged:');

 For i:=1 to 3 do

  begin

   Aver[i]:=Round(Aver[i]/n[i]);

   write('   ',i+8,' - ',Aver[i]);

  end;

 Writeln;

 Writeln;

 For j:=1 to 3 do

  begin

   For i:=1 to 10 do

    With Pup[i] do

     If Class=j+8 then Writeln(Class:2,Fam:10,Mark:5);

   Writeln;

  end;

 Writeln('Best:');

 For i:=1 to 10 do

  With Pup[i] do

   If Mark=Max then Writeln(Fam:10,Class:5,Mark:5);

 Readln;

End.