Пожалуйста помогите , срочно Дана матрица 7х7 элементов Обнулить все её элементы, расположенные выше главной диагонали. 1)Тес
Пожалуйста помогите , срочно Дана матрица 7х7 элементов Обнулить все её элементы, расположенные выше главной диагонали. 1)Тестовый пример 2)Блок схема 3)Программа
Если элемент стоит выше главной диагонали, то его номер столбца больше, чем номер строки. Программа будет такая: 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.