Сформировать двумерный массив а (7x7). Вывести его как таблицу и найти сумму элементов главной диагонали.

Сформировать двумерный массив а (7x7). Вывести его как таблицу и найти сумму элементов главной диагонали.
Гость
Ответ(ы) на вопрос:
Гость
Var   A     : array[1..7,1..7] of Integer;   i,j,s : Integer; Begin   s:=0;   For i:=1 to 7 do   Begin     For j:=1 to 7 do     Begin       A[i,j]:=Random(100);       If i=j then s:=s+A[i,j];       Write(A[i,j]:4);     end;     Writeln;   end;   Write('Сумма элементов главное диагонали: ',s); end.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы