1

Дано: двумерный массив целых чисел A[N, N].
Найти: произведение элементов, расположенных на главной диагонали.

 procedure TForm1.Button2Click(Sender: TObject);
 var
 a : Array [1..100, 1..100] of integer;
 i , j , sum : integer;
 begin
 for I := 1 to 100 do
 begin
 for J := 1 to 100 do
  begin
     if (i = j) then
        begin
          sum := sum * a [i, j];
          Edit2.Text := intToStr (sum);
        end;

  end;

 end;

 end;

Как составить код для прохода по главной диагонали?

1 ответ 1

2

Вы делаете почти правильно.

Нужно:

  • Переименовать переменную sum в product
  • Инициализировать её единицей (!)
  • Выводить результат лишь в самом конце вычисления
  • Вам не нужен двойной цикл и проверка индексов, достаточно цикла по i и обращения к диагональному элементу a[i, i].
  • Да, и не забудьте внести в матрицу данные, а то произведение чего считает ваш код?

Дальше сами.

Ваш ответ

Нажимая на кнопку «Отправить ответ», вы соглашаетесь с нашими условиями использования и подтверждаете, что прочитали и поняли наши политику конфиденциальности и нормы поведения.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.