Найти сумму всех элементов, расположенных на главной диагонали матрицы - Turbo Pascal

Формулировка задачи:

1)Задача Найти сумму всех элементов двумерного массива целых чисел размерностью 5*5, расположенных на главной диагонали. Заполнение массива осуществить с клавиатуры. 2)Программа
Program mass 5*5; {название программы}
Var A : Array[1..5,1..5] of Integer;
    I,J,S:Integer;
Begin
 S:=0;
 For I:=1 To 5 Do
  For J := 1 To 5 Do
      A[I,J]:=Random(10); 
 For I:=1 To 5 Do
Begin
 For J := 1 To 5 Do
  Write(A[I,J]:3);
 WriteLn;
End;
 For I:=1 To 5 Do
  For J := 1 To 5 Do
   If I=J Then S:=S+A[I,J];
WriteLn('Сумма всех элементов расположенных на главной диагонали = ',S);
End.

Код к задаче: «Найти сумму всех элементов, расположенных на главной диагонали матрицы - Turbo Pascal»

textual
Program mass55;

15   голосов, оценка 3.867 из 5


СОХРАНИТЬ ССЫЛКУ
Похожие ответы