Паскаль Турбо, массивы.

[Кхалиси]

Проверить есть ли матрица А (7,7) симметрична относительно главной диагоналию.

[newerow1989]

var a:array[1..7,1..7] of byte;
    i,j:byte;
    yes:boolean;
begin
   Randomize;
   For i:=1 to 7 do
   begin
      For j:=1 to 7 do
      begin
         a[i,j]:=Random(21);
         Write(a[i,j],'  ');
      end;
      Writeln;
   end;
   Writeln;
   {For i:=1 to 7 do
      For j:=i to 7 do
         a[i,j]:=a[j,i];
   For i:=1 to 7 do
   begin
      For j:=1 to 7 do
         Write(a[i,j],'  ');
      Writeln;
   end;}
   yes:=true;
   For i:=1 to 7 do
      For j:=i to 7 do
         yes:=yes and (a[i,j]=a[j,i]);
   If yes then
      Writeln('yes') else
      Writeln('no');
   Readln;
end.

Сойдет?

То, что в фигурных скобках - это самопроверка!

[Кхалиси]

Мне нужно переписывать то что в фигурных скобках?)

и что за byte?) это тоже самое что integer?

[newerow1989]

То, что в фигурных скобках я привожу симметрию относительно главной диагонали. Можешь переписать его. Если его убрать, то ответ выведет "no", очень-преочень редко появится "yes" с вероятностью 1/49.
byte НЕ тоже самое что integer. byte выделяет 1 байт памяти, а integer -4 (это я так экономлю память, ну и слово короткое - из 4 букв для экономии времени)

[Кхалиси]

а можно вместо byte написать integer? просто мы пока byte не использовали ни разу еще и фигурные скобки тоже. если я их не напишу все будет нормально? или можно их как то заменить?)

[Artsiom]

а можно вместо byte написать integer? просто мы пока byte не использовали ни разу

Попробуй, просто попробуй, тебе же никто не запрещает?

и фигурные скобки тоже. если я их не напишу все будет нормально? или можно их как то заменить?)

Фигурные скобки - это значит, что там код заккоментирован и исполняться не будет.

[Кхалиси]

а почему там a[i,j]:=Random(21)?

[Artsiom]

Сообщение от Кхалиси

а почему там a[i,j]:=Random(21)?

Нуууууу, можно и не Random, а заполнять матрицу вручную.

Random(21) возвращает "случайное" число лежащее в пределах от 0 до 21(не включительно).