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

@lonerst · Регистрация: 28.05.2013

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

2.Определить количество строк, не содержащих ни одного нулевого элемента.
Матрица прямоугольная, целочисленная.
Наглею, не могли бы блок схему сделать ?

@gluckpilz · 04.06.2013, 20:30

2)

Pascal

program name;
 
const
  n = 3;
  m = 7;
 
var
  a: array[1..n,1..m] of integer;
  i, j, bzero, kolST: integer;
 
begin
  writeln('The Original Matrix');
  randomize;
  for i := 1 to n do
    begin
      for j := 1 to m do
        begin
          a[i,j] := -10+random(30);
          write(a[i,j]:3);
        end;
      writeln;
    end;
  kolST:=0;
  for i := 1 to n do
    begin
      bzero:=0;
      for j := 1 to m do
        begin
          if a[i,j]<>0 then
            inc(bzero);
        end;
      if bzero=m then
        inc(kolST);
    end;
  writeln('The number of rows is not equal to zero ', kolST);
readln
end.

@lonerst · 05.06.2013, 21:49 **[ТС]**

Спасибо тебе

@lonerst 1 / 1 / 0 Регистрация: 28.05.2013 Сообщений: 23
		1
	Определить количество строк матрицы, не содержащих ни одного нулевого элемента 28.05.2013, 23:49. Показов 1356. Ответов 2 Метки нет (Все метки) 2.Определить количество строк, не содержащих ни одного нулевого элемента. Матрица прямоугольная, целочисленная. Наглею, не могли бы блок схему сделать ? 0

@lonerst 1 / 1 / 0 Регистрация: 28.05.2013 Сообщений: 23
	05.06.2013, 21:49 [ТС]	3
	Спасибо тебе 0

Опции темы

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

Решение