Двумерные массивы

[Flaky]

Написать программу которая через процедуры организует ввод,вывод массива(2 процедуры)и 3 процедура заменяет в 2 массивах строуи местами строки указывает пользователь например заменить 1 строку 1 массива с 3 строкой 2 массива и наоборот


Pascal

Плз помогите нубу

[Alex11223]

А проблема в чем? Под помощью подразумевается, что вы пытаетесь сделать что-то сами, показываете код, рассказываете, что не получается и т.д., а не только копипастите задание и просите сделать все за вас.

[Flaky]

Type
mass=array[1..100,1..200] of integer;
procedure Vvod(var b:mass;n,l:integer);
procedure Vivod(var b:mass;n,l:integer);
Procedure Vvod; {Vvod mass}
var
i,j:integer;
begin
writeln('vvedite mass');
For i:=1 to n do
begin
writeln;
For j:=1 to l do
readln(b[i,j]);
end;
end;

Procedure Vivod; {Vivod mass}
var
i,j:integer;
begin
For i:=1 to n do
begin
For j:=1 to l do
write(b[i,j]);
readln;
end;
end;

[Flaky]

Я не понял как сделать 3 процедуру по замене строчек и как в основной программе все это описать

[Flaky]

Help help help

[Alex11223]

Я не понял как сделать 3 процедуру по замене строчек

Примерно так. col — кол-во столбцов, arr1line/arr2line — номера строк соответствующих массивов, которые надо поменять. temparr — одномерный массив, макс. кол-во элементов ≥ col.

for i:=1 to col do
begin
   temparr[i]:=arr1[arr1line, i];
   arr1[arr1line, i]:=arr2[arr2line, i];
   arr2[arr2line, i]:=temparr[i];
end;

[Flaky]

спс спасли