Дана квадратная матрица 9-ого порядка. Получить квадратную матрицу того же порядка, в которой элемент равен единице, если соответствующий ему элемент исходной матрицы меньше элемента, расположенного в его строке на главной диаг...
Дана квадратная матрица 9-ого порядка. Получить квадратную матрицу того же порядка, в которой элемент равен единице, если соответствующий ему элемент исходной матрицы меньше элемента, расположенного в его строке на главной диагонали, и равен нулю в противном случае.
Гость
Ответ(ы) на вопрос:
Гостьconst
n = 9;
var
a: array[1..n, 1..n] of integer;
i, j, aii: integer;
begin
Randomize;
Writeln('Исходный массив');
for i := 1 to n do
begin
for j := 1 to n do
begin
a[i, j] := Random(101) - 50;
Write(a[i, j]:4)
end;
Writeln
end;
Writeln('Результирующий массив');
for i := 1 to n do
begin
aii:=a[i,i];
for j:=1 to n do
begin
if a[i,j]
Не нашли ответ?
Похожие вопросы