Подскажите, как удалить первую строку из двумерного массива, а затем "поднять" все остальные строки?
1 ответ
2
циклом перебирайте, и смещайте.
пробуйте так:
var
a:array[0..100,1..2] of integer;
i:integer;
begin
for i:=1 to 100 do
begin
a[i-1,1]:=a[i,1];
a[i-1,2]:=a[i,2];
end;
end;
-
-
Можно когда вы напишите какой у Вас массив. и что в последний элемент массива писать если первый удадлили – vdk company 6 окт '12 в 16:39
-
в последнюю строку добавлять ничего не надо, просто надо после того как удалили все элементы первой строки, поднять все остальные – Никола Кривошея 6 окт '12 в 16:44
-
-
неа чёт не работает, делал так: procedure up( matr:matrix); var i,j,k:integer; begin for i := 1 to nmax do for j := 1 to nmax do matr[i-1,j]:=matr[i,j]; end; – Никола Кривошея 6 окт '12 в 17:05