Извините за повтор.
Нужна прога крестики-нолики 19х19
Смотрел в теме Хрестики-нолики,
там нет нормальных прог (в одной не могу подключить Unit)
Помогите плз.
procedure inputmass(var ma : array of real;mn :integer);
procedure inputmass2(var ma : tdarray;mn,mk :integer);
function findmin(ma : array of real;var mi:integer;mk:integer;mn:integer):real;
function findmax(ma : array of real;var mi:integer;mk:integer;mn:integer):real;
procedure showmass(ma : array of real;mn:integer);
procedure showmass2 (ma:tdarray;mn,mk:integer);
procedure showmass3 (ma:tshortdarray;mn,mk:integer);
procedure sortmass1(var ma : array of real;mn : integer);
procedure sortmass2(var ma : array of real;mn : integer);
procedure sortmass3(var ma:array of real;mn:integer;mk:integer);
procedure concmass(ma,mb:array of real;na,nb :integer;var mc:array of real);
function findinmass(ma : array of real;mn,mk:integer;mf:real):integer;