двумерный массив. вывести все строки, содержащие хотя бы один "0"(ноль) (написать через функцию в Delphi)

[BLADIMIR]

дан двумерный массив. вывести все строки, содержащие хотя бы один "0"(ноль). через функцию


______________
Название темы по правилам форума должно адекватно отражать суть решаемой задачи/проблемы.

Модератор.

[Alex11223]

Может быть хоть что-то попробуете сами сделать и покажите код, расскажите что конкретно не получается?

[BLADIMIR]

type mas=array of integer; //строка матрицы
matr=array of mas; //массив строк
function IsZero(a:mas):boolean; //функция поиска 0 в строке
var i:integer;
begin
i:=0;
result:=false;
while(i<high(a))and not result do
if a[i]=0 then result:=true
else inc(i);
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var a:matr;
    n,m,i,j,k:integer;
begin
randomize;
n:=SpinEdit1.Value;
m:=SpinEdit2.Value;
if(n=0)or(m=0) then
 begin
  ShowMessage('Вы не ввели размеры матрицы');
  exit;
 end
else
 begin
  SetLength(a,n,m);
  StringGrid1.ColCount:=m;
  StringGrid1.RowCount:=n;
  StringGrid2.ColCount:=m;
  StringGrid2.RowCount:=0;
  for i:=0 to n-1 do
  for j:=0 to m-1 do
  a[i,j]:=random(10);
  for i:=0 to n-1 do
  for j:=0 to m-1 do
  StringGrid1.Cells[j,i]:=IntToStr(a[i,j]);
  k:=-1;
  for i:=0 to n-1 do
  if IsZero(a[i]) then
   begin
    inc(k);
    StringGrid2.RowCount:=StringGrid2.RowCount+1;
    for j:=0 to m-1 do
    StringGrid2.Cells[j,k]:=StringGrid1.Cells[j,i];
   end;
  if k=-1 then ShowMessage('В матрице нет нолей');
 end;
end;

Только мне нужно это как то попроще...
Через Console Application

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[BLADIMIR]

Нужно, чтобы там было uses_crt

[Zer0]

модуля CRT в Delphi нету, а в консоли по сути надо только заменить

n:=SpinEdit1.Value;
m:=SpinEdit2.Value;

на

readln(n,m);

удалить все упоминания о stringgrid и переименовать процедуру в какой нибудь Rashet