Если элемент стоит выше главной диагонали, то его номер столбца больше, чем номер строки. Программа будет такая: 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.
Сначало тебе надо перевести из двоичной системы в десятичную т.е.
Допустим я возьму 10# где x(дв.сис.) = 100 , а y(дв.сис.)= 1110
Тогда x(дв.сис.) = 1 * 2^2 + 0*2^1 + 0 * 2^0 = 4 + 0 + 0 = 4(дес.сис)
Y(дв.сис.) = 1 * 2^3 + 1 * 2^2 + 1 * 2^1 + 0 * 2^0 = 14(дес.сис.)
И так каждый номер.
Потом тебе надо будет поставить полученные точки на координатной плоскости по последовательности, которая показана в задаче.