Разработать функцию, проверяющую, есть ли отрицательные
элементы в указанной строке двухмерного массива. Разработать процедуру,
удаляющую указанную строку двухмерного массива. Удаленная строка
заполняется нулями и переносится в конец массива. Написать программу
удаления всех строк двухмерного массива с отрицательными элементами
Ответы
Ответ дал:
0
function HasNeg(a: array[,] of integer; pRow: integer) :=
a.Row(pRow).Any(p -> p < 0);
procedure DelRow(var a: array[,] of integer; pRow: integer);
begin
var maxRow := a.RowCount - 1;
for var iRow := pRow to maxRow - 1 do
a.SetRow(iRow, a.Row(iRow + 1));
a.SetRow(maxRow, ArrFill(a.ColCount, 0))
end;
begin
var b := MatrRandom(5, 4, -3, 9);
b.Println(3);
for var i := 0 to 4 do
while HasNeg(b, i) do
DelRow(b, i);
b.Println
end.
Приложения:
![](https://st.uroker.com/files/576/5767229b94ea8a9e33aec64786b6997e.jpg)
Вас заинтересует
1 год назад
1 год назад
1 год назад
1 год назад
8 лет назад