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

@MakotoakaHI · Регистрация: 12.02.2011

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

Вот в лабах у нас нчиего нет про двумерные массивы.. и как их делать только Бог знает..(( помогите плиз, очень нужно

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

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

Добавлено через 2 часа 42 минуты
Ребят помогите пожалуйста, на всех сайтах облазила, нигде толковой информации нет о работе с двумерными массивами=(

@doom-3008 · 02.05.2011, 00:30

На эту тему полно материала в интернете…. нужно только поискать…
Вот я написал пример такой программы на С. Выполнил оно из заданий «количество строк, не содержащих ни одного нулевого элемента». Все остальные делаются аналогично.

Код программы:

C
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
#include <stdlib.h>
#include <conio.h>
#define N 5
#define M 6
#define an -15
#define ak 27
 
int A[N][M];
int main(){
 int i,j,p;
 int s=0,n=0;
 clrscr();
 
 randomize();
 for(i=0;i<N;i++){
    for(j=0;j<M;j++){
        A[i][j]=an+random(ak);;
        printf("%5d",A[i][j]);
                if(A[i][j]==0) s++;
    }
    puts("\n ");
        if(s==0) n++;
        s=0;
 }
 
 printf ("\n\n%d",n);
 
 getch();
 return 0;
}

@MakotoakaHI · 02.05.2011, 14:58 **[ТС]**

в общем я вот начала делать, но пишет ошибку и не знаю что тут не так. Примитивненько конечно.. Кусочек вот

Visual Basic
1
2
3
4
5
6
7
8
9
10
Sub Ìíîãîìåðíûé_ìàññèâ()
Dim massiv(7, 5) As Integer, i As Integer, j As Integer, ks As Integer
For i = 1 To 5
    ks = 0
    For j = 1 To 7
        massiv(7, 5) = Worksheets("Лист1").Cells(i, j)
        If massiv(i, j) = 0 Then ks = ks + 1
    Next j
Next i
End Sub

Добавлено через 1 минуту
просто подзарез это всё нужно до вторника =\

Добавлено через 13 часов 13 минут
буду очень благодарна..

@all_angarsk · 02.05.2011, 15:47

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

Visual Basic
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
45
46
47
48
Private Sub CommandButton1_Click()
Dim massiv() As Integer, i As Integer, j As Integer, k As Integer, z As Integer
Dim max As Integer
n = InputBox("Введите число строк", "", "7")
m = InputBox("Введите число столбцов", "", "5")
ReDim massiv(n, m)
Randomize
max = -1000
For i = 1 To n
For j = 1 To m
massiv(i, j) = Rnd() * 12 - 5
Cells(i + 1, j + 2) = massiv(i, j)
If max < massiv(i, j) Then
max = massiv(i, j)
End If
Next
Next
 
'• количество строк, не содержащих ни одного нулевого элемента;
For i = 1 To n
z = 0
For j = 1 To m
If massiv(i, j) = 0 Then
z = z + 1
End If
Next
If z = 0 Then
k = k + 1
End If
Next
 
'максимальное из чисел, встречающихся в заданной матрице более одного раза.
For i = 1 To n
For j = 1 To m
If massiv(i, j) = max Then
v = v + 1
End If
Next
Next
If v > 1 Then
d = "Максимальное число " & max & " встречается в заданной матрице более одного раза."
Else
d = "Максимальное число " & max & ", не встречается в заданной матрице более одного раза."
End If
Cells(5 + n, 2) = "Количество строк, не содержащих ни одного нулевого элемента = " & k
Cells(6 + n, 2) = d
 
End Sub

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

Visual Basic
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
Private Sub CommandButton1_Click()
Dim massiv() As Integer, i As Integer, j As Integer, k As Integer, z As Integer
Dim max As Integer
Cells.Clear
n = InputBox("Введите число строк", "", "7")
m = InputBox("Введите число столбцов", "", "5")
ReDim massiv(n, m)
Randomize
max = -1000
For i = 1 To n
For j = 1 To m
massiv(i, j) = Rnd() * 12 - 5
Cells(i + 1, j + 2) = massiv(i, j)
If max < massiv(i, j) Then
max = massiv(i, j)
End If
Next
Next
 
' количество столбцов, содержащих хотя бы один нулевой элемент;
For j = 1 To m
z = 0
For i = 1 To n
If massiv(i, j) = 0 Then
z = z + 1
End If
Next
If z > 0 Then
k = k + 1
End If
Next
 
 
Cells(5 + n, 2) = "Количество столбцов, содержащих хотя бы один нулевой элемент = " & k
End Sub

@MakotoakaHI · 02.05.2011, 19:05 **[ТС]**

Спасибо огромное Вам! Если еще есть время, напишите, пожалуйста и последнее условие.

Добавлено через 2 часа 4 минуты
Плииииииз... ужо конец дня, оочень нужно..

@gaw · 02.05.2011, 19:44

не проверял

Visual Basic
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
Private Sub CommandButton1_Click()
 
Dim massiv() As Integer, i As Integer, j As Integer, k As Integer, z As Integer
 
n = InputBox("Введите число строк", "", 5)
 
ReDim massiv(n, n)
Randomize (Timer)
Cells.Clear
For i = 1 To n
For j = 1 To n
massiv(i, j) = Rnd() * 5 + 1
Cells(i + 1, j + 1) = massiv(i, j)
Next
Next
 
dl_max = 1: num = 1
For i = 1 To n
dl = 1: dl_max_s = 1: el = massiv(i, 1)
For j = 2 To n
If massiv(i, j) = el Then
   dl = dl + 1
   If j = n Then GoTo 1
   Else
1       If dl_max_s < dl Then
          dl_max_s = dl
       End If
       el = massiv(i, j)
       dl = 1
End If
Next j
 Cells(i + 1, n + 4) = dl_max_s
If dl_max < dl_max_s Then
dl_max = dl_max_s: num = i
End If
Next i
Cells(n + 2, 1) = "dl_max = " & dl_max
Cells(n + 3, 1) = "num = " & num
End Sub

@MakotoakaHI · 02.05.2011, 21:19 **[ТС]**

немного некорректно. в некоторых массивах ошибается..

Добавлено через 2 минуты
и если можно. внедрите эту часть работы пожалуйстааа вот в этот код

Visual Basic
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
Private Sub CommandButton1_Click()
Dim massiv() As Integer, i As Integer, j As Integer, k As Integer, z As Integer
Dim max As Integer
Cells.Clear
n = InputBox("Введите число строк", "", "7")
m = InputBox("Введите число столбцов", "", "5")
ReDim massiv(n, m)
Randomize
max = -1000
For i = 1 To n
For j = 1 To m
massiv(i, j) = Rnd() * 12 - 5
Cells(i + 1, j + 2) = massiv(i, j)
If max < massiv(i, j) Then
max = massiv(i, j)
End If
Next
Next
 
' количество столбцов, содержащих хотя бы один нулевой элемент;
For j = 1 To m
z = 0
For i = 1 To n
If massiv(i, j) = 0 Then
z = z + 1
End If
Next
If z > 0 Then
k = k + 1
End If
Next
MsgBox ("Количество столбцов, содержащих хотя бы один нулевой элемент: " & k)
End Sub

Добавлено через 39 минут
Хелп( на завтра нужно(

@all_angarsk · 03.05.2011, 00:33

про столбцы не правда. второе полное задание

Visual Basic
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
45
46
47
48
49
50
51
52
53
54
55
Private Sub CommandButton1_Click()
Dim massiv() As Integer, i As Integer, j As Integer, k As Integer, z As Integer
Dim maxE As Integer, maxS As Integer, w As Integer
Cells.Clear
n = InputBox("Введите число строк", "", "7")
m = InputBox("Введите число столбцов", "", "5")
ReDim massiv(n, m)
Randomize
max = -1000
For i = 1 To n
For j = 1 To m
massiv(i, j) = Rnd() * 12 - 5
Cells(i + 1, j + 2) = massiv(i, j)
 
Next
Next
 
' количество столбцов, содержащих хотя бы один нулевой элемент;
For j = 1 To m
z = 0
For i = 1 To n
If massiv(i, j) = 0 Then
z = z + 1
End If
Next
If z > 0 Then
k = k + 1
End If
Next
 
'• номер строки, в которой находится самая длинная серия одинаковых элементов.
For i = 1 To n
For j = 1 To m
r = massiv(i, j)
For h = 1 To m
If r = massiv(i, h) Then
z = z + 1
End If
Next
If maxE < z Then
maxE = z
End If
z = 0
Next
If maxS < maxE Then
maxS = maxE
w = i
End If
maxE = 0
Next
 
 
Cells(5 + n, 2) = "Количество столбцов, содержащих хотя бы один нулевой элемент = " & k
Cells(6 + n, 2) = w & " строке, в которой находится самая длинная серия одинаковых элементов = " & maxS
End Sub

@MakotoakaHI · 03.05.2011, 00:54 **[ТС]**

all_angarsk, БЛАГОДАРЮ!!!

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .	SDL3 для Android: Загрузка PNG с альфа-каналом с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .

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

Решение

Решение

@MakotoakaHI 0 / 0 / 0 Регистрация: 12.02.2011 Сообщений: 17

	Определить количество строк матрицы, не содержащих ни одного нулевого элемента 01.05.2011, 22:35. Показов 5428. Ответов 8 Метки нет (Все метки) Вот в лабах у нас нчиего нет про двумерные массивы.. и как их делать только Бог знает..(( помогите плиз, очень нужно Дана целочисленная прямоугольная матрица. Определить: • количество строк, не содержащих ни одного нулевого элемента; • максимальное из чисел, встречающихся в заданной матрице более одного раза. Дана целочисленная прямоугольная матрица. Определить: • количество столбцов, содержащих хотя бы один нулевой элемент; • номер строки, в которой находится самая длинная серия одинаковых элементов. Добавлено через 2 часа 42 минуты Ребят помогите пожалуйста, на всех сайтах облазила, нигде толковой информации нет о работе с двумерными массивами=( 0

@MakotoakaHI 0 / 0 / 0 Регистрация: 12.02.2011 Сообщений: 17
	02.05.2011, 19:05 [ТС]
	Спасибо огромное Вам! Если еще есть время, напишите, пожалуйста и последнее условие. Добавлено через 2 часа 4 минуты Плииииииз... ужо конец дня, оочень нужно.. 0

@MakotoakaHI 0 / 0 / 0 Регистрация: 12.02.2011 Сообщений: 17
	03.05.2011, 00:54 [ТС]
	all_angarsk, БЛАГОДАРЮ!!! 0