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

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

нужна программа на паскале. помогите пожалуйста)

Задать свой вопрос
1 ответ
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.

Миша Фишевский
либо вот таковой вариант еще естьconstnMax = 10;var a:array [1..nMax] of integer; i :integer;begin readln(k, l); for i := 1 to m do begin a[i, k] := a[i, k] + a[i, l]; a[i, l] := a[i, k] - a[i, l]; a[i, k] := a[i, k] - a[i, l]; end;end.///////////////////////////////////////////////////////ab35a = a+b; = 8;b = a - b; = 3a = a - b; = 5
Борис Ченком
вот оба вариант, поправил задание массива и цикл http://ideone.com/agJmpO
Александра Акириано
И разconstnMax = 10;var a:array [1..nMax,1..nMax] of integer; buf :integer;begin readln(k, l); for i := 1 to nMax do begin buf := a[i, k]; a[i, k] := a[i, l]; a[i, l] := buf; end; end.
Аделина Короневских
И дваconstnMax = 10;var a:array [1..nMax,1..nMax] of integer; i :integer;begin readln(k, l); for i := 1 to nMax do begin a[i, k] := a[i, k] + a[i, l]; a[i, l] := a[i, k] - a[i, l]; a[i, k] := a[i, k] - a[i, l]; end;end.
Геннадий Сосенков
спасибо)
Аринка Белелина
Пожалуйста :)
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт