Если элемент стоит выше главной диагонали, то его номер столбца больше, чем номер строки. Программа будет такая: PROGRAM Matrix77 var A: array [1..7][1..7] of real; // Объявляем переменные var i, j: integer BEGIN crt; for i:= 1 to 7 do begin for j:=1 1 to 7 do read (A[i][j]); // Вводим начальный массив readln; end; for i:= 1 to 7 do begin // Проверяем, что элемент выше диагонали for j:=1 1 to 7 do if j > i then A[i][j]:=0; // Обнуляем его end; for i:= 1 to 7 do begin for j:=1 1 to 7 do write (A[i][j]); // Выводим конечный массив writeln; end; END.
Само выражение выглядит так: (not A and B) or (not B and A)
1) A = 0, B = 0 -> F = 0 т.к. (1 и 0) или (1 и 0) = 0
2) A = 0, B = 1 -> F = 1 т.к. (1 и 1) или (0 и 0) = 1
3) A = 1, B = 0 -> F = 1 т.к. (0 и 0) или (1 и 1) = 1
4) A = 1, B = 1 -> F = 0 т.к. (0 и 1) или (0 и 1) = 0