Дан двумерный массив, N ** N: 1 2 0 1 0 2 1 1 2 1 0 1 1 1 2 0 Примерно. Нужно сделать...

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] и так далее, есть все элементы совпадают и равны друг другу, то вывести надпись что они равны, помогите пожалуйста, а то мне дикий капут))

---

Comments

это нужно делать в цикле?

---

Да, чтобы можно было подставить любое N и программа работала

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.