Дан двумерный массив. Удалить из него все строки с четными номерами. Под удалением строки двумерного массива следует понимать исключение этой строки из массива путем смещения всех следующих за ней строк на одну вверх и присвоение всем элементам последней строки значения 0.
More Questions From This User See All
Answers & Comments
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.
Пример на рисунке.