Сформировать двумерный массив а (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.
Не нашли ответ?
Похожие вопросы