Помогите дописать код..

Доброе утро! вот собственно все утро решал себе на лабу задачку: Таблица футбольного чемпионата задана квадратной матрицей порядка N, в которой все элементы главной диагонали не используются, а каждый элемент, не принадлежащий главной диагонали, равен количеству очков, набранных в игре с командой, игравшей на своем поле: 2-выйгрыш; 1- ничья; 0-поражение. Для команды i(1<=i<=N) в строке i указано количество очков, полученных на своем поле, а в столбце i – кол-во очков, потерянных на чужом поле. Найти: номера команд, выигравших более половины игр. Сформировать список команд, учувствовавших в чемпионате, и номера команд, не имевших поражений в чемпионате.Сделал код, почти все задание сделать, только никак не получается сформироваться список команд, участвовавших в чемпионате, и номера команд, не имевших поражений..:
program xxc; uses crt; var tabl:array [1..100,1..100] of integer;{матрица} i,j:integer;{идексы} n:integer;{размерность матрицы} s:integer;{сумма очков для команды} oks:integer;{внутрикомандные очки} res:array[1..100] of integer;{масств сумм} q:integer;{индексы массива res} begin clrscr; Writeln('Vvedite N'); Readln(N); Randomize; {заполняем случайно таблицу} for i:=1 to n do for j:=1 to n do tabl[i,j]:=random(3); {обнуляем } for i:=1 to n do tabl[i,i]:=0; Writeln('Ishodnaya matrica ='); {выводим получившуюся матрицу} for i:=1 to n do begin for j:=1 to n do Write(' ',tabl[i,j]);Writeln; end; {Выводим номера команд, выйгравших больше половины игр} Writeln('Nomera komand, vyigravshih bolshe poloviny igr:'); s:=0;{обнуляем сумму для команды} oks:=0;{обнуляем внутрикоммандную сумму} for i:=1 to n do begin for j:=1 to n do begin s:=s+tabl[i,j]+tabl[j,i]; if s>oks then oks:=s;{поиск максимальной суммы команды} end; if oks>((n-1)*2) then Writeln('Nomer komandy - ',i,' ;Summa ballov: = ',s); s:=0; end; {Выводим список команд по убыванию в очках} <font color="Red">
        <font size="4">?</font>
    </font> readln; end.
Помогите пожалуйста!!!(Помогите плиззз, осталось всего то ничего ....Сформировать список команд, учувствовавших в чемпионате, и номера команд, не имевших поражений в чемпионате. а у меня не получается..
3 ответа

Сформировать список команд, учувствовавших в чемпионате
Ну пройдись ты по строкам матрицы и write(tabl[i,j])
и номера команд, не имевших поражений в чемпионате.
for i:=1 to n do 
 begin 
 for j:=1 to n do
 begin
 if tabl[i,j]>0 then выводим на экран и break
 end;


Мне вообще подсказали реализовать так: Считаем 2-ки в строке + 0 в столбце и если сумма больше чем сумма нулей минус 2 значит команда выйграла больше половины матчей... вот только реализовать никак не могу..помогите!Ну ладн, а если даж такое условие: .Найти кол-во команд. имевших больше побед чем поражений и номера команд не имвеших поражений? как это реализовать?


Мне никак не понятно:
Сформировать список команд, учувствовавших в чемпионате
Но у тебя нет команд которые не учавствовали в чемпионате. А если и есть нафинта их в таблицу записывать?