Формирование двумерного целочисленного массива (матрицы) размером N х M

[zergon]

Всем добрый вечер! Прошу помощи в написании программы, т.к. в информатике ничего не понимаю, а сдать задачу необходимо...Программа должна быть написана на языке Delphi6 Помогите кто-нибудь кому не трудно это сделать, задачу прикрепил.Благодарю!!

[RUSt88]

пиши на мыло, договоримся

[Grag]

Готов решить Вашу задачу.
Имею большой опыт работы с Delphi...
С моим резюме и портфолио можно ознакомиться в соответствующих разделах на моем сайте:
http://igor-bachin.narod.ru
или вот по этим ссылкам:
http://www.autsorser.ru/index.php?action=rsm&user=59
http://www.autsorser.ru/index.php?action=prtfl&user=59

Контакты:
e-mail: skiper@rol.ru
icq: 585281783
Skype: delmas61

[zergon]

Сколько хотите господа за программу? Напишите в личку.

[Chudo4258]

Задан массив А размером mxn. Сформировать массив В из элементов, расположенных ниже главной диагонали

Речь о главной и побочной диагоналях может идти только если n=m.
Код: P.rar

unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    BitBtn1: TBitBtn;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation
{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var A:array[1..50,1..50]of integer;
    i,j:integer;
    S,S1:string;
begin
S:='';
S1:='';
for i:=1 to StrToInt(Edit1.Text) do
 begin
 for j:=1 to StrToInt(Edit2.Text) do
  begin
   A[i,j]:=random(10);
   S:=S+IntToStr(A[i,j])+'       ';
   if (i>j) then S1:=S1+IntToStr(A[i,j])+'  ';
  end;
 S:=S+#13+#13;
 end;
label1.Caption:=S;
label6.Caption:=S1;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Randomize
end;
end.

1.jpg