Question

Дана целочисленная квадратная матрица проверьте являются ли все числа расположенные ниже главной и побожной диагоналей одинаковыми

Answer 1

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.