Наличие нуля в матрице на Pascal

Наличие нуля в матрице...

const 
  SzM = 10; 
  SzN = 10; 
 
type Matrix = array [1..SzM,1..SzN] of integer;

procedure FillMatrixByRandom(var a: Matrix; m,n: integer); // Заполнение случайными
begin
  for var i:=1 to M do 
  for var j:=1 to N do 
    a[i,j] := Random(10);
end;
 
procedure PrintMatrix(const a: Matrix; m,n: integer); // Вывод матрицы
begin
  for var i:=1 to M do 
  begin
    for var j:=1 to N do 
      write(a[i,j]:4);
    writeln;  
  end;
end;

var 
  a: Matrix;
  HasZero: boolean;
 
label 1;
 
begin
  var m := 3;
  var n := 4;
  FillMatrixByRandom(a,m,n);
 
  writeln('Исходная матрица: ');
  PrintMatrix(a,m,n);
 
  HasZero := False;
  for var i:=1 to m do
  for var j:=1 to n do
    if a[i,j]=0 then
    begin
      HasZero := True;
      goto 1;
    end;
1:
  if HasZero then
    writeln('В матрице есть нули')
  else writeln('В матрице нулей нет')  
end.



Просмотров: 1688
10.02.2015, 10:59 -

Категория: Статьи » Программирование » Pascal