Question

Дан двумерный массив. Удалить из него все строки с четными номерами. Под удалением строки двумерного массива следует понимать исключение этой строки из массива путем смещения всех следующих за ней строк на одну вверх и присвоение всем элементам последней строки значения 0.

Answer 1

begin

 var (m, n) := ReadInteger2('Число строк и столбцов:');

 var a := MatrRandom(m, n, -99, 99);

 a.Println(4);

 Writeln;

 var me := m div 2;

 if me > 0 then

 begin

   var v := ArrGen(m - me, i -> 2 * i);

   a := a.MatrSlice(v, ArrGen(n, i -> i));

   SetLength(a, m, n);

   for var i := m - me to m - 1 do

     for var j := 0 to n - 1 do

       a[i, j] := 0;

   a.Println(4);

 end;

end.

Пример на рисунке.