помогите с комментариями к строкам написали программы, работают, но не понимаем что написано

[Alexander_Petrenko]

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

var
a: array[1..100,1..100] of integer;
r: integer;
i,j,n: byte;
Begin
for i:=1 to n do
for j:=1 to n do
if i<j then
begin
r:=a[i,j];
a[i,j]:=a[j,i];
a[j,i]:=r;
end;
for i:=1 to n do
begin
for j:=1 to n do write(a[i,j]:4);
writeln;
end;
readln
End.

[WorldMaster]

и?? что не так то?

[p51x]

Ничего читать и учиться не хочется. Есть более важные дела... Как обычно.

[WorldMaster]

Сообщение от p51x

Ничего читать и учиться не хочется. Есть более важные дела... Как обычно.

Классика жанра. ))

[Baburek]

Самое смешное, что этот код и школьник в состоянии прочитать. Нафига выбрали эту профессию? Без понимания таких простых вещей лучше сменить направление учебы и не засорять рынок. Все равно на работу не возьмут если такое увидят.

[Sciv]

// объявление переменных
var
a: array[1..100,1..100] of integer;
r: integer;
i,j,n: byte;

//начало программы
Begin
  for i:=1 to n do // цикл
    for j:=1 to n do // цикл
      if i<j then // проверка условия i < j 
      begin
        r:=a[i,j]; // присваивание 
        a[i,j]:=a[j,i]; // присваивание 
        a[j,i]:=r; // присваивание 
      end;
  for i:=1 to n do // цикл
  begin
    for j:=1 to n do write(a[i,j]:4); // цикл и вывод элемента матрицы на экран
    writeln;
  end;
  readln
End. // конец программы

[Alex11223]

написали программы, работают, но не понимаем что написано

это как?

[p51x]

копи-паст с инета или друга/одногрупника же

[WorldMaster]

Сообщение от Sciv

// объявление переменных
var
a: array[1..100,1..100] of integer;
r: integer;
i,j,n: byte;

//начало программы
Begin
  for i:=1 to n do // цикл
    for j:=1 to n do // цикл
      if i<j then // проверка условия i < j 
      begin
        r:=a[i,j]; // присваивание 
        a[i,j]:=a[j,i]; // присваивание 
        a[j,i]:=r; // присваивание 
      end;
  for i:=1 to n do // цикл
  begin
    for j:=1 to n do write(a[i,j]:4); // цикл и вывод элемента матрицы на экран
    writeln;
  end;
  readln
End. // конец программы

А строки инициализации и ключевые слова не описали ... ТС теперь будет другую тему создавать наверняка. )))

[Baburek]

Меня одного волнует как этот код у них вообще работает?