дана целочисленная квадратная матрица проверьте являются ли все числа расположенные ниже главной и побожной диагоналей одинаковыми
Аноним:
Побожная диагональ? Церковь и до информатики добралась?
Ответы
Ответ дал:
0
Var
A:array[1..13,1..13] of integer;
i,j,n,M,k,C:integer;
Begin
Randomize;
N:=Random(13)+1;
M:=N div 2 +2;
WriteLn('Исходный массив(',N,'):');
For i:= 1 to N do
Begin
For j:= 1 to N do
Begin
A[i,j]:=random(N*2+1)-N;
Write(A[i,j]:3,' ');
End;
WriteLn
End;
k:=1;
if (N>2) then
Begin
C:=A[M,N-M+2];
For i:= M to N do
For j:= N-i+2 to i-1 do
if A[i,j] <> C then k:=0;
if k <> 0 then WriteLn('Да')
else WriteLn('Нет')
End
else WriteLn('В массиве нет элементов ниже главной и побочной диагоналей.');
End.
A:array[1..13,1..13] of integer;
i,j,n,M,k,C:integer;
Begin
Randomize;
N:=Random(13)+1;
M:=N div 2 +2;
WriteLn('Исходный массив(',N,'):');
For i:= 1 to N do
Begin
For j:= 1 to N do
Begin
A[i,j]:=random(N*2+1)-N;
Write(A[i,j]:3,' ');
End;
WriteLn
End;
k:=1;
if (N>2) then
Begin
C:=A[M,N-M+2];
For i:= M to N do
For j:= N-i+2 to i-1 do
if A[i,j] <> C then k:=0;
if k <> 0 then WriteLn('Да')
else WriteLn('Нет')
End
else WriteLn('В массиве нет элементов ниже главной и побочной диагоналей.');
End.
Вас заинтересует
5 месяцев назад
5 месяцев назад
1 год назад
2 года назад
2 года назад
7 лет назад