Дан массив B(n*m).Элементы массива задать в программке.Удалить все строки, в которых

Дан массив B(n*m).Элементы массива задать в программке.Удалить все строчки, в которых нет нулевого элемента. Паскаль

Задать свой вопрос
1 ответ
// PascalABC.NET 3.0, сборка 1128
procedure DeleteRow(var a:array[,] of integer; r:integer);
begin
  var rows:=a.GetLength(0);
  var cols:=a.GetLength(1);
  for var i:=r to rows-2 do
    for var j:=0 to cols-1 do a[i,j]:=a[i+1,j];
  SetLength(a,rows-1,cols)
end;

begin
  var b:array[,] of integer:=((1,2,3,0),(5,6,0,8),
      (9,10,11,12),(13,0,15,16),(17,18,19,20));
  Writeln('Начальный массив: ',b);
  var n:=b.GetLength(0);
  var m:=b.GetLength(1);
  // устраняем строчки без нулевых частей
  for var i:=n-1 downto 0 do begin
    var FoundZero:=False;
    for var j:=0 to m-1 do
      if b[i,j]=0 then begin FoundZero:=True; Break end;
    if not FoundZero then DeleteRow(b,i) // удалить строчку
    end;
  Writeln('Результирующий массив: ',b);
end.

Тестовое решение:
Исходный массив: [[1,2,3,0],[5,6,0,8],[9,10,11,12],[13,0,15,16],[17,18,19,20]]
Результирующий массив: [[1,2,3,0],[5,6,0,8],[13,0,15,16]]
Слаутин Егор
Благодарю 
Шерешков Гена
Пожалуйста
Эмилия Штрик
Если нет Паскаля на компьютере этого, можно вот здесь проверить в браузере прямо: http://pascalabc.net/WDE/
Амина Кубаналиева
Это официальный веб-сайт PascalABC
Ксюха Буляковская
Есть само собой ;)
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт