Вопрос школьника по предмету Информатика
Разработать функцию, проверяющую, есть ли отрицательные
элементы в указанной строке двухмерного массива. Разработать процедуру,
удаляющую указанную строку двухмерного массива. Удаленная строка
заполняется нулями и переносится в конец массива. Написать программу
удаления всех строк двухмерного массива с отрицательными элементами
Ответ учителя по предмету Информатика
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.
Похожие вопросы от пользователей
Количественное, порядковое, величина, поймаешь, двенадцать, одиннадцать, удесятерить, впятером, вдесятеро, пятёрка, двойной, трояк, никаких рекордов, семьдесят, поход, деревне-русский, параллель, шестьдесят, длинноухий, девятьсот,килограмм, миллионов, старинный, сажень, шестиклассник, лиственница.
1)Как только я увидел этого человека я сразу узнал его.
2)Так как я не имею представления об актуальности этой пробле(м/мм)ы я не буду участвовать в ди(с/сс)ку(с/сс)ии.
3)Когда товарищ увидел меня он сразу (же) подошёл ко мне.
4)Мать понимает ребёнка хотя она не знает н.. одного вопроса.
5)Таня удивится если она видит нас.
6)После того как мы написали диктант мы стали проверять его.
7)Если вы заболеете вы идёте к врачу.