Типовой расчет на паскале...

[IGoRb]

Ребята помогите пожалуйста мне надо типовой расчет сделай очень срочно...
лучше всего свяжитесь со мной по асе 424682225
все труды конечно же компенсирую!!!

Таблица футбольного чемпионата задана квадратной матрицей порядка N , в которой все элементы, принадлежащие главной диагонали, равны нулю, а каждый элемент, не принадлежащий главной диагонали, равен 2, 1 или 0 (число очков, набранных в игре: 2 - выигрыш, 1 - ничья, 0 - проигрыш). Рассчитать распределение призовых мест, т.е. какая из команд и с каким количеством очков заняла 1, 2 и 3 место.

[samec]

Стучите в асю 111115656, обсудим.

[Shift_sk]

var a:array[1..100,1..100] of byte;
    s:array[1..2,1..100] of integer;
    i,j,c,c2,n,k:integer;
begin
read(n) ;
for i:=1 to n do
a[i,i]:=0;
for i:=1 to n do begin
for j:=1 to n do begin
writeln('введите рещультат игры ',i,'команды и ',j,' команды(2-победа, 1-ничья, 0-проигрыш)');
read(a[i,j]);
end;
end;
for i:=1 to n do
a[i,i]:=0;
for i:=1 to n do begin
for j:=1 to n do begin
s[1,i]:=s[1,i]+a[i,j];
end;
end;
for i:=1 to n do
s[2,i]:=i;
for i:=1 to n do begin
 for j:=i to n do begin
  if s[1,i]>s[1,j] then begin
                      c:=s[1,i];
                      s[1,i]:=s[1,j];
                      s[1,j]:=c;
                      c2:=s[2,i];
                      s[2,i]:=s[2,j];
                      s[2,j]:=c2;
                      end;
                      end;
                      end;
                      k:=1;
for i:=n downto n-2  do begin
writeln('команда номер',s[2,i],' с ',s[1,i],' количеством очков заняла ',k,'-ое место');
k:=k+1;
end;
end.