двухмерный массивы
пробавал и неполучилось если можете помогите.
кароче мне нужна только строчка с перемещением остольное я фсе сделал.
uses crt;
type
matrice=array[1..100] of array [1..100] of integer;
var
A:matrice;
i,j:byte;
n,m,k:integer;
begin
clrscr;
textcolor(blue);
textcolor(white);
write('vedite cislo strok n= ');
read(n);
write('vedite cislo stolbtov m= ');
read(m);
write('k=');
read(k);
writeln('elementi matriti): ');
for i:=1 to n do
for j:=1 to m do
begin
read(A[i,j]);
end;
writeln;
for i:=1 to k do begin
for j:=1 to m do
A[i,j]:=A[n+k,j];
end;
for i:=1 to n do begin
for j:=1 to m do
write(A[k+i,j]:2);
writeln;
end;
end.
вот что у меня получилось
n=6
m=2
k=3
1 1 0 0
2 2 0 0
3 3 0 0
4 4 1 1
5 5 2 2
6 6 мне надо это в результате 3 3
но получаю это , 4 4 что не так, ?
5 5
6 6
0 0
0 0
0 0