Question

Дан двумерный массив, N на N:

1   2   0   1

0   2   1   1

2   1   0   1

1   1   2   0

Примерно. Нужно сделать проверку крайних членов, A[1,2] и A[2,1], A[1,3] и A[3,1] и так далее, есть все элементы совпадают и равны друг другу, то вывести надпись что они равны, помогите пожалуйста, а то мне дикий капут))

                                                       

Answer 1

program z1;
uses crt;
var a:array[1..100,1..100] of byte;
i,j,k,n:byte;
begin
clrscr;
k:=0;
write('Введи n: ');
readln(n);
for i:=1 to n do begin 
  for j:=1 to n do begin 
  read(a[i,j]);  write(' '); 
 end; 
 writeln;
end;
for i:=1 to n do
if a[i,1]<>a[1,i] then
k:=k+1;
if k=0 then writeln('Крайние элементы равны') else
writeln('Крайние элементы не равны');
readkey
end.