Чтобы изменить размер слоя или выбранного объекта в слое, выберите «Преобразовать» в меню «Правка» и нажмите «Масштаб». Вокруг объекта появляются восемь квадратных точек привязки. Перетащите любую из этих опорных точек, чтобы изменить размер объекта
Если элемент стоит выше главной диагонали, то его номер столбца больше, чем номер строки. Программа будет такая: 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.
Чтобы изменить размер слоя или выбранного объекта в слое, выберите «Преобразовать» в меню «Правка» и нажмите «Масштаб». Вокруг объекта появляются восемь квадратных точек привязки. Перетащите любую из этих опорных точек, чтобы изменить размер объекта
Объяснение: