Проблема с симметричной матрицой

[AlexLAN]

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

Вот то что я уже сделал:

var
   A:array [1..100,1..100] of integer;
   B:array [1..100] of integer;
   I,J,N,c:integer;
Begin
     Writeln ('Vvedite razmer matricy');
     readln(N);
     Writeln ('Vvedite elementy odnomernogo massiva');
     for I:=1 to N do
     readln(B[i]);
     for I:= 1 to N do begin
     for J:= 1 to N do
     if (J>I) then A[i,j]:=B[i];
     if (I>J) then A[j,i]:=B[i];
     end;
     for I:=1 to N do begin
     for J:=1 to N do
     write (' ',A[i,j]);
     writeln;
     end;

readln;
end.

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

Если я правильно понял смысл задачи то нужно сформировать одномерный массив и его элементы перенести в матрицу так, чтобы они были симметричны относительно главной оси.
Но как это сделать?
Подскажите пожалуйста!

[evg_m]

Надо заполнить и вторую половину матрицы.

какие индексы будут у элемента симметричного относительно диагонали если исходный элемент имеет индексы r (строка) и c (столбец).

[AlexLAN]

Мне понятно что нужно заполнить и вторую половину.
Я могу запонить матрицу полностью но тогда она будет выглядеть к примеру так:
1 1 1 1 1
2 2 2 2 2
3 3 3 3 3
4 4 4 4 4
5 5 5 5 5
А мне надо вот так:
1 2 3 4 5
2 2 3 4 5
3 3 1 4 5
4 4 4 1 5
5 5 5 5 1
А вот что получаеться:
0 1 2 3 4
0 0 1 2 3
0 0 0 1 2
0 0 0 0 1
0 0 0 0 0
Действие типа A[i,j]:=A[j,i] не помогает

[Костя КС]

получается симметрично, почти как ты хотел.. но не совсем

program qw;
var
   A:array [1..100,1..100] of integer;
   B:array [1..100] of integer;
   I,J,N,c:integer;
Begin
     Writeln ('Vvedite razmer matricy');
     readln(N);
     Writeln ('Vvedite elementy odnomernogo massiva');
     for I:=1 to N do
     readln(B[i]);
     for I:= 1 to N do begin
     for J:= 1 to N do   A[i,j]:=B[j];
     end;
     c := 2;
     for I:= 1 to N do begin
     for J:= 1 to N do if j<c then   A[i,j]:=A[j,i];
     c := c+1;
     end;  
     for I:=1 to N do begin
     for J:=1 to N do
     write (' ',A[i,j]);
      writeln(' ');
     end;
end.

[Костя КС]

А мне надо вот так:
1 2 3 4 5
2 2 3 4 5
3 3 1 4 5
4 4 4 1 5
5 5 5 5 1

я не понимаю откуда берутся такие числа на главной диагонали

[evg_m]

for j:=1 to n //проход по верхней
for i:=j+1 to n //треугольной части без главной диагонали
a[i,j]:=a[j,i];

for i:=j to n //а это если нужно включить и главную диагональ

[evg_m]

k:=1;

for i:=1 to N
for j:=i to N
begin
a[i,j]:=b[k];
k:=k+1;
end; //формирование верхнетреугольной матрицы из одномерного массива

for i:=1 to N
for j:=i+1 to N
a[j,i]:=a[i,j]; // заполнение нижнего треугольника

[AlexLAN]

Сообщение от Костя КС

я не понимаю откуда берутся такие числа на главной диагонали

Это я случайно не правильно набрал

Спасибо что откликнулись! Я вам очень благодарен!

[ZhannaPostnykh]

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

Program my_tt
const n=5;
type matrix=array[1..n,1..n] of integer;
Var x:matrix;
i.j:integer;
s:boolean;
f1:text;
Begin
Assign (f1,' :\matrix.txt');
reset(f1);
Writeln('Enter matrix 'n:2);
for i to n do
begin
for j to n do
read( :\ \matrix.txt',x[i,j]);
readln;
end;
s:=true;
for i:=1 to n do
begin
For j:=1 to n do
begin
if x[i,j]<>x[j,i] then
s:=false
end;
end;
if s then write('yes') else write('no');
readln;
close(f1);
end.