Помогите с задачей на массивы и прочую Опции

[Альбиша]

Помогите с задачей пожалуйста
____________________________________________________
В итоговой таблице первого круга футбольного чемпионата каждая из N команд (число N и названия команд заданы) представлено количеством забитых и пропущенных голов в каждой из встреч с противниками. Определить сумму очков, набранную каждой командой, при условии, что за победу дается 3 очка, за ничью - 2, а за поражение - 0.
Напечатать список команд, в порядке уменьшения полученных ими очков с указанием общего количества очков и общей разницы забитых и пропущенных мячей.
______________________________________________________
Буду очень благодарна. И если вас конечно не очень затруднит, то можно и с комментариями.

М

Просьба соблюдать приличие

Сообщение отредактировано: Lapp - 12.04.2009 19:37

[Lapp]

Вот тебе набросок. В нем не хватает только вывода разницы забитых и пропущенных мячей.
Разбирайся. Спрашивай. Комментарии - по мере необходимости))

const
  m=100;

var
  i,j,k,n,d,x: integer;
  Goals: array[1..m,1..m]of integer;
  Teams: array[1..m]of string[15];
  Score: array[1..m]of integer;
  List: set of byte;

begin
  WriteLn('Type in team names one at a time, finish with empty line:');
  n:=0;
  repeat
    Inc(n);
    Write(n,' => ');
    ReadLn(Teams[n])
  until (n=m)or(Teams[n]='');
  if Teams[n]='' then Dec(n);
  for i:=1 to n do for j:=1 to n do Goals[i,j]:=Random(6);
  WriteLn;
  WriteLn('The Cup table:');
  Write('':15);
  for i:=1 to n do Write(i:5);
  WriteLn;
  for i:=1 to n do begin
    Write(Teams[i]:15,' ',i,' ');
    for j:=1 to n do if j>i then Write(Goals[i,j],':',Goals[j,i],'  ') else Write('':5);
    WriteLn
  end;
  for i:=1 to n do begin
    Score[i]:=0;
    for j:=1 to n do begin
      d:=0;
      if Goals[i,j]>Goals[j,i] then d:=3 else if Goals[i,j]=Goals[j,i] then d:=2;
      Inc(Score[i],d)
    end
  end;
  WriteLn;
  WriteLn('Teams rating list:');
  List:=[];
  for i:=1 to n do begin
    x:=-1;
    for j:=1 to n do if not(j in List)and(Score[j]>x) then begin
      k:=j;
      x:=Score[j]
    end;
    List:=List+[k];
    WriteLn(i:2,Teams[k]:16,Score[k]:5)
  end;
  ReadLn
end.