eger; {Змінна для обміну елементів матриці}
n, m, i, j: byte;
Indata, Out: Text;
Begin
Assign (Indata, 'indata.txt'); {Зв'язуємо}
Assign (Out, 'outdata.txt'); {файли}
Reset (Indata); {Відкриваємо}
Rewrite (Out); {файли}
Read (In, n, m);
ReadLn (In); {Наступне зчитування буде відбуватися з нового рядка}
For i: = 1 to n do
Begin
For j: = 1 to m do
Read (Indata, a [i, j]); {Зчитування даних}
ReadLn (Indata);
End;
For i: = 1 to n do
For j: = i +1 to m do
Begin
Temp: = a [i, j];
a [i, j]: = a [j, i];
a [j, i]: = Temp;
End;
For i: = 1 to m do
Begin
For j: = 1 to n do
Write (Out, a [i, j], '');
WriteLn (Out);
End;
Close (Out);
End.
В В В
Використана література:
1) "Turbo Pascal 7.0. Початковий курс "Фаронов В.В.
2) "Turbo Pascal. Програмування на мові високого рівня "Немнюгин С.А.
3) "Лекції з програмування на Паскалі "pascal.dax.ru
4) "Керівництво по мові B.Pascal 7 & Objects/LR, Глава 14, Введення і виведення "citforum.ru
В
