помогите пожалуйста

[юльчатай]

помогите пожалуйста

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

Пожалуйста, не клонируйте темы! Вам ответят, имейте терпение. С ув. модератор.

 

[Vladimir_S]

Совсем просто. Например, так:

Program Championship;

CONST
N= ; {ввести количество команд}

VAR
i, j, k, Product:INTEGER;
Table: ARRAY[1..N, 1..N] of Integer;
Winners:ARRAY[1..N] of Integer;

BEGIN

{Ввод матрицы с консоли}
FOR i:=1 TO N DO
FOR j:=1 TO N DO
BEGIN
Write('Table[',i:2,j:3,']= '); ReadLn(Table[i,j]);
END;

{Замена диагональных элементов единицами - так удобнее}
FOR i:=1 TO N DO Table[i, i]:=1;

{Собственно проверка}
k:=0;
FOR i:=1 TO N DO
BEGIN
Product:=1;
FOR j:=1 TO N DO Product:=Product*Table[i, j];
IF Product>0 THEN
BEGIN
Inc(k); {или, что тоже самое, k:=k+1}
Winners[k]:=i;
END;
END;

{Выдача итога}
IF k=0 THEN Write('Поражения были у всех команд')
ELSE
BEGIN
Write('Нет поражений у команд NN ');
FOR i:=1 TO k DO
Write(Winners:3);
END;
END.