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

@CWBENIO · Регистрация: 23.05.2016

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

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

@Peoples · 25.05.2016, 16:41

Pascal

program pr;
var
  i, j, n, m, cout: integer;
  a: array [1..100, 1..100] of integer;
begin
  writeln('Введите количество строк матрицы');
  readln(n);
  writeln('Введите количество столбцов матрицы');
  readln(m);
  for i := 1 to n do
    for j := 1 to m do 
      a[i, j] := random(10);
  for i := 1 to n do
  begin
    for j := 1 to m do 
      write(a[i, j]:3);
    writeln;
  end;
  for j := 1 to m do 
  begin
    cout := 0;
    for i := 1 to n do 
    begin
      if a[i, j] = 0 then
        cout := cout + 1;
    end;
    writeln('Количество нулевых элементов в ', j, ' столбце: ', cout);
  end;
end.

@CWBENIO 0 / 0 / 0 Регистрация: 23.05.2016 Сообщений: 3
		1
	Определить количество нулевых элементов в каждом столбце матрицы 25.05.2016, 16:13. Показов 2824. Ответов 1 Метки нет (Все метки) Определить количество нулевых элементов в каждом столбце матрицы. помогите 0

	25.05.2016, 16:41

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

Решение