Для матрицы вывести строки с нулевыми элементами

Категория: Delphi/Pascal
2011-08-28 22:29:44

Для матрицы А (4 строки;5 столбцов) вывести те строки, в которых есть нулевые элементы или вывести сообщение "нет строк с нулевыми элементами". Для проверки наличия нулевых элементов в произвольной строке матрицы использовать процедуру.

code: #pascal
  1. const
  2.  M=4;
  3.  N=5;
  4.  var i,j,s:integer;
  5.  A:array[1..M,1..N]of integer;
  6.  
  7.  procedure Create_Mass;
  8.  begin
  9.  Randomize();
  10.  for i:=1 to m do
  11.  begin
  12.  for j:= 1 to n do
  13.  begin
  14.  a[i,j]:=Random(10);
  15.  end;
  16.  end;
  17.  end;
  18.  
  19.  procedure Find(str:integer);
  20.  var stop:boolean;
  21.  kol:integer;
  22.  begin
  23.  stop:=false;
  24.  kol:=0;
  25.  for i:=1 to m do
  26.  begin
  27.  if (a[i,str]='0')and(stop=false) then
  28.  begin
  29.  stop:=true; {если есть хоть один ноль, то берем всю строку}
  30.  for j:=1 to M do
  31.  begin
  32.  Write(a[j,str],' ');
  33.  inc(kol);
  34.  end;
  35.  end;
  36.  end;
  37.  if kol=0 then Writeln('Нулевых элементов в строке ',str,' не найдено!');
  38.  end;
  39.  
  40.  begin
  41.  Create_Mass;
  42.  Writeln('Введите строку 1-4 для поиска в ней нулевых элементов: ');
  43.  Readln(s);
  44.  Find(s);
  45.  end.
Поделиться:

Похожие статьи:

теги: студенты, массив, двумерный массив, матрица, нулевые элементы