Массив, подсчет

[Matias]

Доброго времени суток. Прошу помочь с заданием по TP.

Имеется таблица футбольного чемпионата, содержащая результаты игр между n командами. Описать таблицу в виде массива записей и составить программу подсчета количества очков, набранных каждой командой.

Вроде задание простое, но реализовать в коде не могу.

[dr.Jekill]

Описывай так:
[syntax=pascal]
type TEAM=record
Name:string;
Ochki:integer;
end;
var a:array[1..50] of TEAM;
[/syntax]
А потом суммируй все a.ochKi
Выкладывай что получится - разберемся!

[Хыиуду]

Ну условно: T[i,j] - результат встречи между i-й и j-й командой: 1 - победа i, 2 - победа j, 3 - ничья

Код: Выделить всё

for i:=1 to N do
for j:=1 to N do
begin
  if i=j then continue;
  if T[i,j]=1 then inc(A[i].ochki, 3);
  if T[i,j]=2 then inc(A[j].ochki, 3);
  if T[i,j]=3 then begin
     inc(A[i].ochki, 1);
     inc(A[j].ochki, 1);
  end;
end;