Люди помогите срочно пожалуйста!

[ReWiR]

До 15.00 срочно нужен текст программы работающей. Мыслей вообще никаких.

Найти все числа,каждое из которых встречается в каждой строке матрицы A(m,n)
Написать надо через процедуры и функции
вот здесь уже написали otvet.mail.ru/question/19939799/ но там она не работает(даже если массивы указать)и ничего не понятно.

[alex_fcsm]

uses crt;
const m=10;n=10;
var   i,j,ind:integer;
      a:array[1..m,1..n] of integer;
      b:array[1..100] of integer;

function Exist(x:integer):boolean;
var i,j:integer;
    ex,flag:boolean;
begin
ex:=true;{ex - элемент есть во всех строках}
exist:=false;{exist - элемент нужно добавить}
 for i:=1 to m do
 begin
  flag:=false;{flag - элемент есть в строке}
  for j:=1 to n do
   if x=a[i,j] then flag:=true;
 if not flag then ex:=false;{элемента нет в строке}
 end;
flag:=true;
if ex then{если есть во всех строках}
 begin
  if ind=0 then begin{если первый элемент в выходном массиве}
                 inc(ind);
                 Exist:=true;
                end
    else
   begin
      for i:=1 to ind do
       if x=b[i] then flag:=false;{если в выходном массиве нет еще такого элемента}
   if flag then begin
                  inc(ind);
                  exist:=true;
                end;
   end;
  end;

end;

procedure Init;
begin
for i:=1 to m do
 begin
  for j:=1 to n do
 begin
 a[i,j]:=random(3);
 write(a[i,j],' ');
 end;
writeln;
end;
end;

begin
clrscr;
randomize;
ind:=0;
Init;{инициализируем матрицу рандомом}
for i:=1 to m do
 for j:=1 to n do
  if Exist(a[i,j]) then b[ind]:=a[i,j];
writeln;
for i:=1 to ind do
 write(b[i],' ');
end.

[ReWiR]

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

uses crt;
const m=10;n=10;
var   i,j,ind:integer;
      a:array[1..m,1..n] of integer;
      b:array[1..100] of integer;

function Exist(x:integer):boolean;
var i,j:integer;
    ex,flag:boolean;
begin
ex:=true;
exist:=false;
 for i:=1 to m do
 begin
  flag:=false;
  for j:=1 to n do
   if x=a[i,j] then flag:=true;
 if not flag then ex:=false;
 end;
flag:=true;
if ex then
 begin
  if ind=0 then begin
                 inc(ind);
                 Exist:=true;
                end
    else
   begin
      for i:=1 to ind do
       if x=b[i] then flag:=false;
   if flag then begin
                  inc(ind);
                  exist:=true;
                end;
   end;
  end;

end;

procedure Init;
begin
for i:=1 to m do
 begin
  for j:=1 to n do
 begin
 a[i,j]:=random(3);
 write(a[i,j],' ');
 end;
writeln;
end;
end;

begin
clrscr;
randomize;
ind:=0;
Init;
for i:=1 to m do
 for j:=1 to n do
  if Exist(a[i,j]) then b[ind]:=a[i,j];
writeln;
for i:=1 to ind do
 write(b[i],' ');
end.

а можно обьясни что да как и для чего. а то я в программировании пока новичёк.

[alex_fcsm]

Посмотрите комментарии вверху и если что-то непонятно, то спрашивайте поконкретнее

[ReWiR]

Ну хотелось бы по порядку понять.
a:array[1..m,1..n] of integer;
b:array[1..100] of integer;
вот что это мы за массивы обьявляем?
function Exist(x:integer):boolean;
это как я понял функция поиска. а x что такое?

[alex_fcsm]

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

Ну хотелось бы по порядку понять.
a:array[1..m,1..n] of integer;
b:array[1..100] of integer;
вот что это мы за массивы обьявляем?
function Exist(x:integer):boolean;
это как я понял функция поиска. а x что такое?

a- матрица по которой ищем
b- массив выходных элементов - которые есть в каждой строчке
Exist - функция, входной параметр - элемент матрицы
принимает true - если элемент есть в каждой строке и не повторяется в b
принимает false если элемент не присутствует в каждой строке или он уже есть в выходном массиве

[ReWiR]

a:array[1..m,1..n] of integer; но ведь так обьявляется массив а не матрица
x:integer это что?
ex:=true;{ex - элемент есть во всех строках}
exist:=false;{exist - элемент нужно добавить} это так и не понял

[alex_fcsm]

матрица - двумерный массив
x:параметр передаваемый в функцию
ex - логическая перенная
exist - функция возвращающая значение типа boolean(тоже логическое)

[Stilet]

но ведь так обьявляется массив а не матрица

И что же по твоему матрицу нельзя массивом двумерным назвать?

[ReWiR]

ну так у нас же матрица 10 на 10 получается