Помогите написать процедуру поиска минимального элемент в 2-ух массивах (Delphi)

[oleg866]

Помогите пожалуйста есть задание,нужно найти минимальный элемент в 2-ух массивах,сравнить их и если они равны,то переменной t присваивается значение true.иначе false.Сделал,но сказали нужно написать свою процедуру.Сколько ни пытался,никак не выходит.Помогите пожалуйста.

var
  Form1: TForm1;
type mas=array of array of integer; var a,b:mas;
implementation

{$R *.dfm}
Procedure Poisk(i, j, min1,min2: integer;var a,b:mas);


begin

  begin
  begin
  Randomize;
  setlength(a, 5, 5);
    for i := 0 to 4 do
    for j := 0 to 4 do
    begin
      a[i, j] := random(20);
      form1.stringgrid2.Cells[i, j] := '';
    end;
  min1 := a[0,0];
  for i := 0 to 4 do
    for j := 0 to 4 do
    begin
      if min1 >a[i, j] then
      begin
        min1 := a[i, j];

      end;
      form1.stringgrid1.Cells[i, j] := Inttostr(a[i, j]);
    end;



  begin
  Randomize;
  setlength(b, 5, 5);
       for i := 0 to 4 do
    for j := 0 to 4 do
    begin
      b[i, j] := random(20);
      form1.stringgrid2.Cells[i, j]:= '';
    end;
  min2 := b[0,0];
  for i := 0 to 4 do
    for j := 0 to 4 do
    begin
      if min2 >b[i, j] then
      begin
        min2 := b[i, j];

      end;
      form1.stringgrid2.Cells[i, j] := Inttostr(b[i, j]);
    end;
end;


  begin
  if (min1)=(min2) then

  form1.lbl1.caption:='true'

  else
   form1. lbl1.caption:='false';
  end;
  end;
  end;
end;

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[AnryKZKZ]

Не совсем понятна фраза:

Сделал,но сказали нужно написать свою процедуру

[eoln]

Наверное, имелось ввиду что одну и ту же процедуру надо применять к этим массивам, а не тупо весь код перенести туда.
создание массивом можно объеденить вне процедуры (дополнительно кинуть ещё один стринггрид)

setlength(a, 5, 5);
setlength(b, 5, 5);
    for i := 0 to 4 do
    for j := 0 to 4 do
    begin
      a[i, j] := random(20);
      b[i, j] := random(20);
      form1.stringgrid1.Cells[i, j] := Inttostr(a[i, j]);
      form1.stringgrid2.Cells[i, j] := Inttostr(b[i, j]);
    end;

или сделать отдельную процедуру.

Поиск изменить

Procedure Poisk(a:mas; var min1: integer);
begin
  min1 := a[0,0];
  for i := 0 to 4 do
    for j := 0 to 4 do
    begin
      if min1 >a[i, j] then
        min1 := a[i, j];
    end;
end;

Применять так:

Poisk(a, min1);
Poisk(b, min2);
if (min1)=(min2) then
  form1.lbl1.caption:='true'
  else
   form1. lbl1.caption:='false';

Писал прям тут, не проверял

P.S. Основной код лучше писать в каком-нибудь обработчике (удобнее и кошернее будет)

[oleg866]

Большое спасибо!Выручили!