Программа поиска названия команды.

[Andrey35]

 program Premier_liga;
 const N=16;                          {Chislo komand}
 var P: array[1..N] of byte;          {Tablica ochkov}
     Team: array[1..N] of string[20]; {Tablica komand}
     X: string[20];                   {Iskomaya komanda}
     i:integer; Flag:boolean;
 begin
   Writeln('Intup: team - points');
   for i:=1 to N do      {Cikl vvoda ishodnih dannih}
     begin
       write(i,' Team:'); read(Team[i]);
       write('  points:'); readln(P[i])
     end;
   write('Intup X-team:');
   readln(X);      {Vvod iskomoy komandi}
   Flag:=FALSE;  i:=0;
   while((i<N) and not Flag) do      {Cikl poiska}
     begin
      i:=i+1;
      {Esli komanda naydena v tablice}
      if (X=Team[i]) then Flag:= TRUE
     end;
   if (Flag) then writeln(X,' has', P[i],' points')
             else writeln(X,' is not in the table')
 end.

Составить программу поиска названия команды с наименьшим количеством очков .

[Smitt&Wesson]

Красиво. И чё дальше?

[Andrey35]

Сообщение от Smitt&Wesson

Красиво. И чё дальше?

Составить программу поиска названия команды с наименьшим количеством очков .