Двухмерные массивы (Delphi 7)

[metra52]

В матрице найти столбец в котором произведение минимального элемента на максимальный больше заданной величины А. Разделить элементы строки с таким же номером как найденый столбец на величину А и вывести полученное число.


Решение на дельфи 7

PHP код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
        Memo2: TMemo;
    Edit1: TEdit;
    Edit2: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
                                pr,i,e,j,min1,n,k,max1,A,f:integer;
        m:array[1..10,1..10] of integer;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
label  lb, lb1;
begin

Memo1.Lines.clear;
Memo1.Lines.Add('Массив');
Memo2.Lines.clear;
Memo2.Lines.Add('Результат');

    A:=strtoint(edit1.text);
     randomize;
     for i:=1 to 3 do
         begin
        for j:=1 to 3 do
            begin
            f:=random(strtoint(edit2.text));
            if f>0 then m[i,j]:=f;
         end;
    end;

     for i:=1 to 3 do
     begin
        Memo1.Lines.Add('| '+inttostr(m[i,1])+' | '+inttostr(m[i,2])+' | '+inttostr(m[i,3])+' |');
     end;

 min1:=m[1,1];
 n:=1;
 max1:=m[1,1];
 k:=1;
 for i:=1 to 3 do
     begin
     for j:=1 to 3 do
    begin
     if min1>m[j,i] then begin min1:=m[j,i];  n:=i; end;
    end;
    for j:=1 to 3 do
     begin
        if max1<m[j,i] then begin max1:=m[j,i]; k:=i  end;
     end;
     if (min1*max1)>A then
  begin
    pr:=min1*max1; Memo2.Lines.Add('Произведение '+inttostr(pr)+' Строка '+ inttostr(n));
     for e:=1 to 3 do
        begin
            Memo2.Lines.Add(inttostr(m[n,e] div A));
         end;
     goto lb;
     end;



 end;

{ if (i=4) and ((min1*max1)=0) then
                begin
                 Memo2.Lines.Add('Нет столбца произведение в котором больше '+inttostr(A)); goto lb;
    end; }



lb:


end;

end.