SaveText.Ru

Инфа
  1. const MAX = 100;
  2. var c: char;
  3.  i, N, count, Year, Gol: integer;
  4.  fam: array[1..MAX] of string;
  5.  name: array[1..MAX] of string;
  6.  Gool: array[1..MAX] of integer;
  7.  
  8. begin
  9.  writeln('Введите количество футболистов: ');
  10.  readln(N);
  11.  count := 0;
  12.  for i:=1 to N do begin
  13.  fam[i]:='';
  14.  name[i]:='';
  15.  repeat read(c);
  16.  fam[i]:=fam[i]+c;
  17.  until c = ' ';
  18.  
  19.  repeat read(c);
  20.  name[i]:=name[i]+c;
  21.  until c = ' ';
  22.  read(Year);
  23.  readln(Gol);
  24.  Gool[i]:= Gol;
  25.  end;
  26.  writeln(' ');
  27.  for i:=1 to N do begin
  28.  if (Gool[i]>2) then
  29.  writeln(fam[i],' ',name[i]);
  30.  end;
  31. end.
  32.  
  33.  
  34.  
  35. const MAX = 100;
  36. var c: char;
  37.  i,r, N, count, Year, Gol: integer;
  38.  fam: array[1..MAX] of string;
  39.  name: array[1..MAX] of string;
  40.  Gool: array[1..MAX] of integer;
  41.  
  42. begin
  43.  writeln('Введите количество футболистов: ');
  44.  readln(N);
  45.  count := 0;
  46.  for i:=1 to N do begin
  47.  fam[i]:='';
  48.  name[i]:='';
  49.  repeat read(c);
  50.  fam[i]:=fam[i]+c;
  51.  until c = ' ';
  52.  
  53.  repeat read(c);
  54.  name[i]:=name[i]+c;
  55.  until c = ' ';
  56.  read(Year);
  57.  readln(Gol);
  58.  Gool[i]:= Gol;
  59.  end;
  60.  writeln(' ');
  61.  r:=1;
  62.  for i:=2 to N do begin
  63.  if (Gool[i]>Gool[i-1]) then
  64.  r:=i;
  65.  end;
  66.  writeln(fam[r],' ',name[r],' ',Gool[r]);
  67. end.
  68.  
  69.  
  70.  
  71.  
  72. const MAX = 100;
  73. var c: char;
  74. ex:string;
  75.  i,j,r, N, count, Year, Gol: integer;
  76.  fam: array[1..MAX] of string;
  77.  name: array[1..MAX] of string;
  78.  Gool: array[1..MAX] of integer;
  79.  
  80. begin
  81.  writeln('Введите количество футболистов: ');
  82.  readln(N);
  83.  count := 0;
  84.  for i:=1 to N do begin
  85.  fam[i]:='';
  86.  name[i]:='';
  87.  repeat read(c);
  88.  fam[i]:=fam[i]+c;
  89.  until c = ' ';
  90.  
  91.  repeat read(c);
  92.  name[i]:=name[i]+c;
  93.  until c = ' ';
  94.  read(Year);
  95.  readln(Gol);
  96.  Gool[i]:= Gol;
  97.  end;
  98.  writeln(' ');
  99.  For i:=1 To N-1 Do
  100.  For j:=1 To N-i Do
  101.  If fam[j]>fam[j+1]
  102.  Then
  103.  Begin
  104.  Ex:=fam[j];
  105.  fam[j]:=fam[j+1];
  106.  fam[j+1]:=Ex;
  107.  Ex:=name[j];
  108.  name[j]:=name[j+1];
  109.  name[j+1]:=Ex;
  110.  r:=gool[j];
  111.  gool[j]:=gool[j+1];
  112.  gool[j+1]:=r;
  113.  End;
  114.  For i:=1 To N Do
  115.  if (gool[i]>0) then
  116.  writeln(fam[i],' ',name[i]);
  117. end.
  118.  
  119.  

Share with your friends:

Print