Задача по матрицам Опции

[Eskel]

Заполняется с клавиатуры верхняя часть. Потом с помощью операторов присваивания, надо сделать матрицу симметричной... Помогите, плиз, написать саму часть где матрица делается симметричной...

[volvo]

Я б на твоем месте вообще вот так сделал:

Program art2;
uses crt;

procedure zap(var f: array of real);
var
  i:integer;
begin
  for i := low(f) to high(f) do
    f[i] := 200 * random - 100
end;

procedure vivod(const f: array of real);
var
  i: integer;
begin
  for i := low(f) to high(f) do
    write(f[i] :3 :1, '':1);
  writeln;
end;

procedure nax(const f: array of real; var r:integer);
var
  i: integer;
begin
  r := 0;
  for i := low(f) to high(f) do
    if f[i] < 0 then inc®
end;

procedure umnog(r: real; var f:array of real);
var
  i: integer;
begin
  for i := low(f) to high(f) do
    f[i] := f[i] * r
end;

const m=15;
var
  a, b: array[1..m] of real;
  c: array[1..m+5] of real;
  x: real; k1,k2,k3: integer;


begin
  clrscr;
  randomize;
  write('vvedite x '); readln(x);
  zap(a); writeln('massiv A'); vivod(a);
  zap(b); writeln('massiv B'); vivod(b);
  zap©; writeln('massiv C'); vivod©;

  nax(a, k1); nax(b, k2); nax(c, k3);
  writeln('kol-vo otriz v masA= ',k1);
  writeln('kol-vo otriz v masB= ',k2);
  writeln('kol-vo otriz v masC= ',k3);

  if (k1<k2) and (k1<k3) then begin umnog(x,a); vivod(a) end
  else
    if (k2<k1) and (k2<k3) then begin umnog(sqr(x),b); vivod(b) end
    else
      if (k3<k1) and (k3<k2) then begin umnog(x/10,c); vivod© end
      else writeln('kol-va ravni');
  readln
end.