Сумма элементов диагонали матрицы на Pascal

      Комментарии к записи Сумма элементов диагонали матрицы на Pascal отключены

Главная Форумы Программирование Программирование на Pascal Сумма элементов диагонали матрицы на Pascal

Помечено: ,

В этой теме 0 ответов, 1 участник, последнее обновление  Васильев Владимир Сергеевич 2 мес. назад.

  • Автор
    Сообщения
  • #3780

    Пользователем вводится квадратная матрица. Программа определяет сумму элементов ее главной диагонали.

    Решение:

    program arrays_16;
    uses crt;
    var i, j, n, d: integer;
    A: array[1..100, 1..100] of integer;
    begin
      write('Количество строк и столбцов> '); read(n);
      d:=0;
      for i:=1 to n do
      begin
        for j:=1 to n do
        begin
          write('Элемент №', i, j,' > '); read(A[i, j]);
        end;
      end;
      writeln('Квадратная матрица:');
      for i:=1 to n do
      begin
        for j:=1 to n do
        begin
          write(A[i, j],' ');
          if i=j then d:=d+A[i, j];
        end;
        writeln;
      end;
      write('Сумма элементов главной диагонали: ', d);
      readkey;
    end.

Для ответа в этой теме необходимо авторизоваться.