Если элемент стоит выше главной диагонали, то его номер столбца больше, чем номер строки.
Программа будет такая:
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.
1)крик
2)барабан
3)интернет
4)почта
5)телефон
6)костёр
7)телевизор
8)радиосвязь
9)морзе
10)приёмник
inputFileName = 'input.txt' # имя входящего файла
outputFileName = 'output.txt' # имя файла вывода
f = open(inputFileName, 'r')
A = int(f.readline())
B = int(f.readline())
f.close()
if A > B:
symbol = ">"
if A < B:
symbol = "<"
else:
symbol = "="
f = open(outputFileName, 'w')
f.write(symbol)
f.close()