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

Найти количество нулей и единиц в массиве

13.05.2012, 11:16. Показов 2809. Ответов 1
Метки нет (Все метки)

Задан двумерный массив целых чисел A размером N на M, состоящий из нулей и едениц. Найти количество нулей и единиц в этом массиве.

Надо решить процедурами.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
13.05.2012, 11:16
Ответы с готовыми решениями:

В массиве В(п) найти количество нулей и единиц
Задача на одномерный массив: В массиве В(п) найти количество нулей и единиц.

Посчитать количество нулей и единиц в массиве
Прошу помочь доработать код private void button1_Click(object sender, EventArgs e) { ...

В строке, состоящей из групп нулей и единиц, подсчитать количество единиц в группах с нечетным количеством
В строке состоящей из групп нулей и единиц ,подсчитать количество единиц в группах с нечетным...

Сформировать матрицу, состоящую из нулей и единиц, причем количество единиц строго равно количеству строк
Сформировать матрицу, состоящую из нулей и единиц, причем количество единиц строго равно количеству...

1
Почетный модератор
7963 / 3934 / 2464
Регистрация: 30.10.2011
Сообщений: 5,377
13.05.2012, 12:03 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
43
44
45
46
47
uses crt;
const nmax=20;
type matr=array [1..nmax,1..nmax] of byte;
var a: matr; n,m: byte; kol: integer;
 
procedure GenM (var ri,rj: byte; var z: matr);
var i,j: byte;
begin
repeat
write('Коливество строк, не более ',nmax,', n='); readln(ri);
until ri in [1..nmax];
repeat
write('Коливество столбцов, не более ',nmax,', n='); readln(rj);
until rj in [1..nmax];
for i:=1 to ri do
    for j:=1 to rj do
        z[i,j]:=random(2);
end;
 
procedure PrintM (ri,rj: byte; z: matr);
var i,j: byte;
begin
for i:=1 to ri do
    begin
    for j:=1 to rj do
        write(z[i,j]:2);
    writeln;
    end;
end;
 
procedure Count (ri,rj: byte; z: matr; c: byte; var k: integer);
var i,j: byte;
begin
k:=0;
for i:=1 to ri do
    for j:=1 to rj do
        if z[i,j]=c then inc(k);
end;
 
begin
GenM (n,m,a);
PrintM (n,m,a);
Count (n,m,a,0,kol);
writeln('Количество нулей: ',kol);
Count (n,m,a,1,kol);
writeln('Количество единиц: ',kol);
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
13.05.2012, 12:03

Дана строка, состоящая из групп нулей и единиц. Подсчитать количество единиц в группах с нечетным количеством
Дана строка, состоящая из групп нулей и единиц. Подсчитать количество единиц в группах с нечетным...

В строке, состоящей из групп нулей и единиц, подсчитать количество единиц в группах с нечетным количеством символов
Я сделал эту задач,ну попросили теперь сделать заменить все cout через puts,я попытался но у меня...

В строке, состоящей из групп нулей и единиц, подсчитать количество единиц в группах с нечетным количеством символов.
В строке, состоящей из групп нулей и единиц, подсчитать количество единиц в группах с нечетным...

В зависимости от выбора, найти количество нулей, единиц или двоек в матрице
помогите, пожалуйста, составить программу используя 3 зависимых переключателя, решить: в...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.