Поменять местами k-й и l-й столбцы данного массива А

Задание:

Поменять местами k-й и l-й столбцы данного массива А (m,n) нужна программа на паскале. Помогите пожалуйста)

Решение:

constnMax=10; var a: array [1… nMax] of integer; buf: integer; begin readln (k, l); for i: =1 to m do begin buf: =a[i, k]; a[i, k]: =a[i, l]; a[i, l]: =buf; end; end.

Знаете другой ответ?

Отправить свой ответ