В матрице Z(6,6) элемент главной диагонали на каждой строке заменить суммой элементов, расположенных за ним (если элемент на главной диагонали не равен 0) — Pascal(Паскаль)

Элементы главной диагонали вывести в массив.

program PascalGuru;

uses crt;

var
  Z: array [1 .. 6, 1 .. 6] of integer;
  i, j, summa: integer;

begin

  for i := 1 to 6 do
    for j := 1 to 6 do
      Z[i, j] := 2 + random(26); { begin
    write ('A[',i,',',j,']='); readln (Z[i,j]); end; }

  write('Vot vvedennaya vami matrica A:');
  for i := 1 to 6 do
  begin
    writeln;
    for j := 1 to 6 do
      write(Z[i, j]:8, ' ');
  end;

  writeln;
  writeln;

  for i := 1 to 6 do
    if Z[i, i] <> 0 then
    begin
      summa := 0;
      for j := i + 1 to 6 do
        summa := summa + Z[i, j];
      Z[i, i] := summa;
    end;

  write('Preobrazovannaya matrica A:');
  for i := 1 to 6 do
  begin
    writeln;
    for j := 1 to 6 do
      write(Z[i, j]:8, ' ');
  end;

  readln;

end.

Leave a Comment

+ 70 = 77