Двумерный массив

[tatka_95]

Дан двумерный массив размером nxn. Составить программу:
а) которая меняет местами все элементы, симметричные относительно главной диагонали;
б) которая меняет местами все элементы, симметричные относительно побочной диагонали.

[Bugrimov]

И снова массивы.... Скажите на каком языке программирования работатете и есть ли наработки?

[tatka_95]

delphi, наработок нет только ввод размера массива, ввод элементов

[Bugrimov]

Выкладывайте все что есть

[tatka_95]

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    ListBox1: TListBox;
    ListBox2: TListBox;
    ListBox3: TListBox;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  massiv: array of array of integer;
  n:integer;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
n:=strtoint (InputBox('Размер массива', 'Введите размер массива','0'));
SetLength (massiv, n, n);

end;

procedure TForm1.Button2Click(Sender: TObject);
var
  i,j: integer;
begin
 for i:=0 to n-1 do
 for j:=0 to n-1 do
massiv[i,j]:=strtoint(InputBox('Элементы массива', 'Введите элемент '+inttostr(i+1)+' строки '+inttostr(j+1)+' столбца массива','0'));


end;

end.

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

Модератор.