Найти произведение элементов, стоящих на диагоналях квадратной матрицы — Pascal(Паскаль)

program PascalGuru;

var
  A: array [1 .. 100, 1 .. 100] of integer; { переменная массива }
  i, j, n, pr: 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]:8);
  end;

  pr := 1;
  for i := 1 to n do
    for j := 1 to n do
      if (i = j) or (i + j - 1 = n) then
        pr := pr * A[i, j];

  writeln;
  writeln('Proizvedenie: ', pr);

  readln;

end.

Leave a Comment

65 − 59 =