Составить программу прибавления к элементам каждой строки двумерного массива – элемента главной диагонали соответствующей строки. Вывести на экран исходный и конечный массив — Pascal(Паскаль)

program ff;

var
  A: array [1 .. 100, 1 .. 100] of integer; { переменная массива }
  i, j, n: integer; { переменные для циклов }

begin
  write('Vvedite razmer matricy A: ');
  readln(n); { считываем размер массива }

  for i := 1 to n do
    for j := 1 to n do
    begin
      write('A[', i, ',', j, ']=');
      readln(A[i, j]);
    end; { считываем сам массив }

  write('Vot vvedennai vami matrica A: ');
  for i := 1 to n do
  begin
    writeln;
    for j := 1 to n do
      write(A[i, j]:3, ' ');
  end; { выводим массив на экран }

  for i := 1 to n do
    for j := 1 to n do
      if i <> j then { если элемент из главной диагоняли - его нет смысла удваивать }
        A[i, j] := A[i, j] + A[i, i];

  writeln;
  write('Vot konecnyi matricy A: ');
  for i := 1 to n do
  begin
    writeln;
    for j := 1 to n do
      write(A[i, j]:3, ' ');
  end; { выводим массив на экран }

  readln;

end.

Leave a Comment

21 + = 29