Заполнить с клавиатуры симметричную квадратную действительную матрицу N-го порядка

[Ruzana]

Заполнить с клавиатуры симметричную квадратную действительную матрицу N-го порядка

ПОМОГИТЕ МНЕ РЕШИТЬ НА ПАСКАЛЕ.
Заполнить с клавиатуры симметричную квадратную действительную матрицу N-го порядка(вводить только верхнюю треугольную матрицу,нижний треугольник заполнить программно, при помощи операторов присваивания).
ЗАРАНЕЕ ВСЕМ СПАСИБО.:tehnari_ru_837:

 

[Vladimir_S]

ПОМОГИТЕ МНЕ РЕШИТЬ НА ПАСКАЛЕ.
Заполнить с клавиатуры симметричную квадратную действительную матрицу N-го порядка(вводить только верхнюю треугольную матрицу,нижний треугольник заполнить программно, при помощи операторов присваивания).
ЗАРАНЕЕ ВСЕМ СПАСИБО.:tehnari_ru_837:

Пожалуйста, помогаю:

Const
 N=5;
Var
 M:Array[1..N,1..N] of Real;
 i,j:Byte;
Begin
 For i:=1 to N do
  For j:=i to N do
   begin
    Write('M[',i,',',j,']= ');
    Readln(M[i,j]);
    If i<>j then M[j,i]:=M[i,j];
   end;
 Writeln;
 For i:=1 to N do
  begin
   For j:=1 to N do Write(M[i,j]:8:2);
   Writeln;
  end;
 Readln
End.