Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  as
Language: PASCAL
Code:
program HelloWorld;
type la=record
komanda:string[30];
Igrok:string[30];
Vozr:integer;
end;
mas=array[1..80] of la;
Procedure InPut(Var Inf:mas;var k,l:integer;);
var i,j:integer;
begin
write('Vvedite kol-vo komand i chislo v komande:');
readln(k,l);
For i:=1 to k do
begin
 write('Vvedite nazvanie komandi:');
 readln(Inf[(i-1)*l+1].komanda);
end;
 for j:=1 to l do
 begin
  write('Vvedite ',j,'-ogo igroka i ego vozrast:');
  readln(Inf[(i-1)*l+j].Igrok,Inf[(i-1)*l+j].Vozr);
  Inf[(i-1)*l+j].komanda:=(Inf[(i-1)*l+1].komanda);
 end;
end; 
Procedure podschet(Inf:mas;k,l:integer;var min:real; var imin:integer);
var sum,j,i:integer;
sr:real;

begin
sum:=0;
imin:=1;
min:=0;
for j:=1 to l do
mni:=min+Inf[j].Vozr;
for i:=1 to k do
 begin 
  for j:=1 to l do
   begin
    sum:=sum+Inf[(i-1)*l+j].Vozr;
    sr:=sum/l;
   end;
   if sr<min then begin
   min:=sr;
   imin:=i;
   end;
  sum:=0;
 end;
Writeln('Samaja molodaja komanda:',Inf[(imin-1)*l+1].komanda,' ee sredniji vozrast=',min);
end;
  
var Inf:mas;
k,l,imin:integer;
min:real;
  
begin
  InPut(Inf,k,l);
  podschet(Inf,k,l,min,imin);
  readln;
end.
          
Comments: