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

@jameses · Регистрация: 21.10.2014

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

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

@ildwine · 11.12.2014, 19:12

Pascal

const
  n = 4;
  m = 7;
var
  i, j, k0, ke : integer;
  a : array [1..n, 1..m] of integer;
begin
  randomize;
  ke := 0; {счетчик столбцов}
  for i := 1 to n do
  begin    
    for j := 1 to m do
    begin
      a[i,j] := random(15)-7;
      write(a[i,j]:4)
    end;
    writeln
  end;
  {считаем}
  for j := 1 to m do
  begin
    k0 := 0; {счетчик нулей в столбце}
    for i := 1 to n do
      if a[i,j] = 0 then inc(k0);
    if k0 = 0 then inc(ke)
  end;
  {результат}
  writeln('кол-во столбцов без нулей: ', ke);
  readln
end.

@jameses 0 / 0 / 3 Регистрация: 21.10.2014 Сообщений: 215
		1
	Определить количество столбцов матрицы, не содержащих ни одного нулевого элемента 11.12.2014, 17:35. Показов 1439. Ответов 1 Метки нет (Все метки) Дана целочисленная прямоугольная матрица. Определить количество столбцов, не содержащих ни одного нулевого элемента. 0

Опции темы

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

Решение