Ответы
Ответ дал:
0
Код Pascal:
Const
N = 4;
Var
A:array[1..N,1..N] of integer;
i,j:integer;
S:real;
Begin
Randomize;
WriteLn('Исходный массив:');
For i:= 1 to N do
Begin
For j:= 1to N do
Begin
A[i,j]:=random(21)-10;
Write(A[i,j]:3,' ')
End;
WriteLn
End;
S:=0;
For i:= 1 to N do
S:=S+A[i,i]+A[N-i+1,i];
WriteLn('Сумма диагональных элементов: ',S)
End.
Пример работы программы:
Исходный массив:
5 6 -3 -5
-1 -1 6 1
-3 -7 7 -5
-1 -2 2 9
Сумма диагональных элементов: 13
Const
N = 4;
Var
A:array[1..N,1..N] of integer;
i,j:integer;
S:real;
Begin
Randomize;
WriteLn('Исходный массив:');
For i:= 1 to N do
Begin
For j:= 1to N do
Begin
A[i,j]:=random(21)-10;
Write(A[i,j]:3,' ')
End;
WriteLn
End;
S:=0;
For i:= 1 to N do
S:=S+A[i,i]+A[N-i+1,i];
WriteLn('Сумма диагональных элементов: ',S)
End.
Пример работы программы:
Исходный массив:
5 6 -3 -5
-1 -1 6 1
-3 -7 7 -5
-1 -2 2 9
Сумма диагональных элементов: 13
Вас заинтересует
1 год назад
5 лет назад
5 лет назад
8 лет назад
8 лет назад