Определить количество строк, не содержащих ни одного нулевого элемента

@olegbesan · Регистрация: 08.06.2012

Студворк — интернет-сервис помощи студентам

Дана целочисленная прямоугольная матрица. Определить количество строк, не содержащих ни одного нулевого элемента
Разработать процедуру либо функцию

@ermolay · 13.06.2012, 00:33

Pascal

const
  nmax=20;
type
  tArr=array[1..nmax,1..nmax] of integer;
  
procedure init(n1,m1: integer; var ar: tArr);
var i,j: integer;
begin
  writeln('Массив:');
  for i:=1 to n1 do
  begin
    for j:=1 to m1 do
    begin
      ar[i,j]:=random(10);
      write(ar[i,j]:4);
    end;
    writeln;
  end;
  writeln;
end;
 
procedure null(n1,m1: integer; var ar: tArr);
var i,j,k: integer;
    boo: boolean;
begin
  for i:=1 to n1 do
  begin
    boo:=false;
    for j:=1 to m1 do
    begin
      if ar[i,j]=0 then boo:=true;
    end;
    if boo=false then inc(k);
  end;
  writeln('В массиве ',k,' строк без нулей');
end;
 
var
  a: tArr;
  n,m: integer;
begin
  write('Введите размеры массива n,m: ');
  readln(n,m);
  init(n,m,a);
  null(n,m,a);
  readln;
end.

@olegbesan 2 / 2 / 1 Регистрация: 08.06.2012 Сообщений: 44
		1
	Определить количество строк, не содержащих ни одного нулевого элемента 13.06.2012, 00:19. Показов 1380. Ответов 1 Метки нет (Все метки) Дана целочисленная прямоугольная матрица. Определить количество строк, не содержащих ни одного нулевого элемента Разработать процедуру либо функцию 0

Опции темы

Определить количество строк, не содержащих ни одного нулевого элемента

Решение