0 / 0 / 0
Регистрация: 21.03.2012
Сообщений: 6
1

Подсчитать строки двумерного массива, в которых имеется хотя бы один нулевой элемент

21.03.2012, 20:03. Показов 2038. Ответов 2
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Условие задачи:составить программу подсчета строк двумерного массива A(N,M), в которых имеется хотя бы один нулевой элемент.
В чем именно нужна помощь:программа работает и пишет номера строки в которых присутствуют нули, НО ещё необходимо чтобы программа выдавала общее количество строк в которых присутствуют нули, помогите реализовать это. Заранее спасибо.

Листинг программы:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
Program z1;
Uses crt;
var
   a:array[1..10,1..10]of integer;
   i,j,k,n,m,S:integer;
begin
     clrscr;
     Write ('Введите кол-во строк :');
     readln (n);
     Write ('Введите кол-во столбцов :');
     readln (m);
     for i:=1 to n do
          begin
               for j:=1 to m do
               begin
                write ('A[',i,j,']=');
                 Readln(a[i,j]);
                 end;
                 writeln;
                 end;
                 writeln('Исходная матрица:');
                 For i:=1 to n do
                      begin
                           for j:=1 to m do
                           begin
                           write(a[i,j]:3);
                           end;
                           writeln;
                      end;
                      for i:=1 to n do
                           begin
                           k:=0;
                           for j:=1 to m do
                      if a[i,j]=0 then
                         begin
                         k:=k+1;
                         S:=1;
                         end;
                         if k>=1 then
                         writeln('Ноль есть в ',i,' строке');
                 end;
                 if S<1 then
                 writeln('В матрице нет нулевых элементов!');
end.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
21.03.2012, 20:03
Ответы с готовыми решениями:

Составьте программу подсчета строк двумерного массива A(N,M), в которых имеется хоть 1 нулевой элемент.
Составьте программу подсчета строк двумерного массива A(N,M), в которых имеется хоть 1 нулевой...

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

Определить номера строк двумерного массива, в которых содержится хотя бы один нулевой элемент
Написать программу, которая определяет номера строк двумерного массива A, в которых содержится хотя...

Написать программу, которая определяет номера строк двумерного массива A[1.6,1.4], в которых содержится один нулевой элемент
Написать программу, которая определяет номера строк двумерного массива A, в которых содержится один...

2
Почетный модератор
7966 / 3937 / 2464
Регистрация: 30.10.2011
Сообщений: 5,377
21.03.2012, 22:22 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
Program z1;
Uses crt;
var
   a:array[1..10,1..10]of integer;
   i,j,k,n,m,s,ss:integer;
begin
clrscr; s:=0; ss:=0;
Write ('Введите кол-во строк :');
readln (n);
Write ('Введите кол-во столбцов :');
readln (m);
for i:=1 to n do
    begin
    for j:=1 to m do
        begin
        write ('A[',i,j,']=');
        Readln(a[i,j]);
        end;
    writeln;
    end;
writeln('Исходная матрица:');
For i:=1 to n do
    begin
    for j:=1 to m do
        write(a[i,j]:3);
    writeln;
    end;
for i:=1 to n do
    begin
    k:=0;
    for j:=1 to m do
        if a[i,j]=0 then k:=k+1;
    if k>=1 then
       begin
       writeln('Ноль есть в ',i,' строке');
       ss:=ss+1;
       s:=s+k;
       end;
    end;
if ss<1 then writeln('В матрице нет нулевых элементов!') else
   writeln('В ',ss,' строке(ах) всего ',s,' нулевых элемент(а)ов');
end.
2
0 / 0 / 0
Регистрация: 21.03.2012
Сообщений: 6
21.03.2012, 22:29  [ТС] 3
Огромное спасибо!
0
21.03.2012, 22:29
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
21.03.2012, 22:29
Помогаю со студенческими работами здесь

Найти количество столбцов матрицы, в которых есть хотя бы один нулевой элемент
Найти количество столбцов матрицы Y(8,6), в которых есть хотя бы один нулевой элемент(без...

Напечатать все строки,в которых имеется хотя бы один пробел
Дан текстовый файл.Напечатать все строки,в которых имеется хотя бы один пробел. Добавлено через...

В массиве из 10 чисел есть хотя бы один нулевой элемент. Вычислить сумму элементов массива до первого нуля
В массиве из 10 чисел есть хотя бы один нулевой элемент. Вычислить сумму элементов массива до...

Если на главной диагонали находится хотя бы один нулевой элемент, то заменить все чётные строки главной диагональю
Помогите пожалуйста с задачками, необходимо решить через внешний файл, и желательно полное решение....


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru