Ошибка, выводит нули, что неправильно? Опции

[Гость_Caries]

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

Код

program matrix;
var a:array[1..7,1..7] of Integer;
n:integer; b : array[1..7,1..7] of Integer; i,j:integer;
begin
n:=7;
for i:=1 to n do
begin
 for j:=1 to i do
  read(a[i,j]);
end;
for j:=1 to n do
begin
 for i:=1 to j do
  a[i,j]:=0;
 end;
for i:=1 to n do
begin
 for j:=1 to i do
  a[i,j]:=b[j,i];
end;
for i:=1 to n do
begin
 for j:=1 to n do
  write(b[i,j]:4);
 end;
writeln
end.

НЕ ЗАБЫВАЕМ ВКЛЮЧАТЬ КОД В ТЕГИ!

Сообщение отредактировано: APAL - 9.11.2004 16:55

[APAL]

Вроде так надо:

Код

Const n=7;                       {!}
var
a,b:array[1..n,1..n] of Integer;   {!}
i,j:integer;                                {!}
begin
for i:=1 to n do
for j:=1 to i do
 read(a[i,j]);

for j:=1 to n do
for i:=j+1 to n do    {!}
 a[j,i]:=0;               {!}
{......}

Как обычно, volvo раньше всех. :P

Сообщение отредактировано: APAL - 9.11.2004 17:44