Задача по двумерным массивам(Паскаль)

[pupik100]

program ex;
var
N,M,i,j,k:integer;
A:array[1..100, 1..100] of integer;
B:array[1..100] of integer;
begin
write('N=',N);
readln(N);
write('M=',N);
readln(M);
write('A[',i,','j']=');
readln(A[i,j]);
write('B[',k,']=');
end;

найти главную и побочную диагональ можно с помощью оператора условия i=j если да то записывается в новый массив... дальше хз..

program ex;
var
N,M,ol1,ol2,z,Q,a,i,j,k:integer;
A:array[1..100, 1..100] of integer;
B:array[1..100] of integer;
begin
write('N=',N);
readln(N);
write('M=',M);
readln(M);
write('A[',i,','j']=');
readln(A[i,j]);
write('B[',k,']=');
end;
k:=1;
z:=1;
if i=j then
begin
L[z]:=A[i,j];
z:=z+1;
end;
if i=j then
begin
L[z]:=A[i,j];
z:=z+1;
end;
i:=1 to N do
j:=N to 1 do
if i+j=N+1 then
begin
Q[k]:=A[i,j];
k:=k+1;
end;
ol1:=o
a:=1 to N do
z:=1 to N do
if B[a]=L[z] then
ol1:=ol1+1
else
begin
a:=N;
z:=N;
end;
ol2:=0
a:=1 to N do
k:=1 to N do
if B[a]=Q[k] then
ol2:=ol2+1
else
begin
a:=N;
k:=N;
end;
if ol1 or ol2=N then
write ('совпадает или что там')
else
write (' ничё не совпадает идите в зад');
end.

мда.. голова болит уже миллиард ошибок.. даж индексы попутал

[ОДИНОЧЕСТВО В СЕТИ]

мда.. голова болит уже миллиард ошибок.. даж индексы попутал!!!

берем исходный одномерный массив загоняем во множество a
создаем массив из элементов главной диагонали загоняем во множество b
находим множество c= пересечение этих 2 множеств
идем по исходному массиву если элемент во множестве то оставляем нет удаляем к
если в исходном массиве осталось хоть одно число пересечение есть если не осталось значит нет!!!

[Arigato]

Сообщение от pupik100

найти пересечение матрицы и массива, пересечения могу быть только диагональными...

Честно сказать, я не совсем понимаю это условие. Если часть элементов массива совпадает с частью элементов диагоналей матрицы - это будет считаться пересечением или нужно полное совпадение всех элементов?
Хорошо бы увидеть пару примеров входных данных и ответов на задачу.

[pupik100]

>Если часть элементов массива совпадает с частью элементов диагоналей матрицы - это будет считаться пересечением
вот это

[Arigato]

Пересечений может быть несколько, например, 2 символ совпали и еще 4 совпали. Что именно выводить?

[pupik100]

если хотя одна одинаковая цифра в массиве и диагонали это и есть пересечение
вот так)

[Arigato]

Тогда ищем совпадение хотя бы 1 элемента:

Цикл по И от 1 до Н делать
  Цикл по Ж от 1 до Н делать
  начало
    Если А[И][И] = М[Ж] то // есть пересечение!!!
    Если А[И][Н-И+1] = М[Ж] то // есть пересечение!!!
  конец;

[ОДИНОЧЕСТВО В СЕТИ]

k:=0;
for j:=1 to n do
begin 
for i:=1 to n do
if a[j]=m[i,i] then
begin
k:=k+1; 
writeln(a[j]);
end;
if k=0 then writeln ('netu');

[pupik100]

program ex;
var
A:array[1..100, 1..100] of integer;
B:array[1..100] of integer;
i,j,N:integer;
begin
write('N=');readln(N);
for i:=1 to N do
for j:=1 to N do
begin
write('A[',i,j,']=');
readln(A[i,j]);
end;
for j:=1 to N do
begin
write('B[',j,']=');readln(B[j]);
end;
for i:=1 to N do
for j:=1 to N do
begin
if A[i,i]=B[j] then
writeln('есть пересечение c главной диагональю');
if A[i,N-i+1]=B[j] then
writeln('есть пересечение с побочной диагональю')
end;
end.

огромное спасибо вам всем за помощь в решении этой дурацкой задачи

[pupik100]

Решение задачи с использованием процедур

program ex;
type matrix=array[1..100, 1..100] of integer;
       mass=array[1..100] of integer;
var
A:matrix; B:mass;
i,j,N:integer;
procedure vvod(var A:matrix; var B:mass; var N:integer);
begin
write('N=');readln(N);
for i:=1 to N do
for j:=1 to N do
begin
write('A[',i,j,']=');
readln(A[i,j]);
end;
for j:=1 to N do
begin
write('B[',j,']=');readln(B[j]);
end;
end;
procedure nahozdenie(var A:matrix; var B:mass; var N:integer);
var
i,j:integer;
begin
for j:=1 to N do
begin
if A[i,i]=B[j] then
writeln('есть пересечение c главной диагональю');
if A[i,N-i+1]=B[j] then
writeln('есть пересечение с побочной диагональю')
end;
end;
begin
vvod(A,B,N);
nahozdenie(A,B,N);
end.