Слайд 19 Program Stroki2; const n=3; m=4; var a:array [1..n,1..m] of integer;
i, j,k,l,c: integer; Begin ВВОД МАССИВА; writeln(‘Ведите номера меняемых местами строк’); readln(k,l); for j:=1
to m do begin c:=a[k,j]; a[k,j]:=a[l,j]; a[l,j]:=c; end; writeln(‘Новый массив => ’); for i:=1 to n do begin for j:=1 to m do write(a[i,j],’ ‘); writeln; end; readln; readln end.