15.01.2013, 18:06 | #1 (permalink) |
Новичок
Регистрация: 15.01.2013
Сообщений: 3
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Помогите решить задачу
|
15.01.2013, 18:06 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Данная тема уже обсуждалась ранее и возможно решена Помогите решить задачу Помогите решить задачу Помогите решить задачу Помогите решить задачу Помогите решить задачу) Помогите решить задачу |
16.01.2013, 10:50 | #5 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Нужно, так нужно, что уж тут поделаешь...
Код:
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. |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|