Question

Заполнить матрицу 10х10 так, чтобы элементы главной диагонали и все, что над ней, были = 1, а остальные - 0. Вывести матрицу на экран. Паскаль

Answer 1

Ответ:

program test;

var i, j: integer;

a: array [1..10,1..10] of integer;

begin

for i:=1 to 10 do

begin

for j:=1 to 10 do

begin

if i<=j then a[i,j]:=1 else a[i,j]:=0;

write (a[i,j]:2)

end;

writeln

end

end.

Answer 2

К сожалению, я не могу напрямую выполнить код Pascal, но я могу предоставить вам псевдокод для создания и заполнения такой матрицы. Вы можете использовать этот псевдокод, чтобы реализовать его на Pascal.

pascalCopy code
const
  N = 10;
  
var
  matrix: array[1..N, 1..N] of Integer;
  i, j: Integer;

begin
  for i := 1 to N do
  begin
    for j := 1 to i do
    begin
      matrix[i, j] := 1;
    end;
    for j := i + 1 to N do
    begin
      matrix[i, j] := 0;
    end;
  end;

  for i := 1 to N do
  begin
    for j := 1 to N do
    begin
      Write(matrix[i, j], ' ');
    end;
    Writeln;
  end;
end.

Этот псевдокод создает матрицу 10x10 и заполняет ее в соответствии с вашими требованиями: элементы на главной диагонали и выше нее равны 1, а остальные элементы равны 0. Затем он выводит матрицу на экран. Вы можете адаптировать этот псевдокод для своей среды на Pascal и выполнить его там.