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

30.10.2012, 22:31. **Показов** 3178. **Ответов** 2

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

Ввести двумерный массив чисел, содержащий N строк и М столбцов. Значения N и М задать самим (лучше взять небольшие, например, 4 строки и 6 столбцов).
Определить количество ненулевых чисел в каждой строке матрицы. Исходный массив и результаты вывести на экран, при этом двумерный массив выводить в форме матрицы.
Для отладки программы значения элементов массива придумать самостоятельно.

Помогите, пожалуйста!

@Reveng · 30.10.2012, 22:56

Pascal

type 
  Matrix = array [1..20, 1..20] of integer;
 
var
  A : Matrix;
  n, m, i, j : integer;
  count : integer;
 
begin
Write('Введите размерность матрицы: '); Readln(n, m);
for i := 1 to n do  
 begin
 for j := 1 to m do
  begin
  Write('Введите A[', i, '; ', j, ']: ');
  Read(a[i, j]);
  end;
 Writeln;
 end;
Writeln('Исходная матрица: ');
for i := 1 to n do  
 begin
 for j := 1 to m do
  Write(a[i, j], ' ');
 Writeln;
 end;
for i := 1 to n do  
 begin
 count := 0;
 for j := 1 to m do
  if a[i, j] <> 0 then inc(count);
 Writeln(count, ' ненулевых элементов в строке № ', i);
 end;
end.

30.10.2012, 23:09

Огромное спасибо! Вы меня спасли

Стюх
		1
	Двумерный массив. Определить количество ненулевых чисел в каждой строке матрицы 30.10.2012, 22:31. Показов 3178. Ответов 2 Метки нет (Все метки) Ввести двумерный массив чисел, содержащий N строк и М столбцов. Значения N и М задать самим (лучше взять небольшие, например, 4 строки и 6 столбцов). Определить количество ненулевых чисел в каждой строке матрицы. Исходный массив и результаты вывести на экран, при этом двумерный массив выводить в форме матрицы. Для отладки программы значения элементов массива придумать самостоятельно. Помогите, пожалуйста!

Стюх
	30.10.2012, 23:09	3
	Огромное спасибо! Вы меня спасли

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

Решение