Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
NikitaGrizzly
0 / 0 / 0
Регистрация: 19.12.2015
Сообщений: 3
1

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

19.12.2015, 20:05. Просмотров 916. Ответов 1
Метки нет (Все метки)

Матрицу М(12, 10) заполнить нулями и единицами случайным образом. Подсчитать и вывести на экран количество N и номера таких столбцов, в которых нулей больше чем единиц. Найти номер К столбца с минимальным количеством нулей. Вывести М, N, К.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
19.12.2015, 20:05
Ответы с готовыми решениями:

Из массива В удалить числа в двоичном представлении которых единиц больше, чем нулей
Переписать положительные числа из матрицы целых чисел А в массив В. Из массива...

Сгенерировать и вывести на экран массив 10x10 из нулей и единиц
Сгенерировать и вывести на экран массив 10x10 из нулей и единиц так, чтобы...

В матрице подсчитать количество единиц и найти номера строки и столбца первой встречающейся единицы
В матрице D(5,6) подсчитать количество единиц и номер строки и номер столбца ...

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

Найти количество строк, в которых количество отрицательных элементов больше, чем количество положительных.
Двумерные массивы. Задание 1. В каждом варианте дан двумерный массив A из N...

1
bormant
Модератор
Эксперт Pascal/DelphiЭксперт NIX
4025 / 2649 / 2128
Регистрация: 22.11.2013
Сообщений: 7,435
20.12.2015, 22:10 2
Лучший ответ Сообщение было отмечено NikitaGrizzly как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
const r=12; c=10;
var
  m: array [1..r,1..c] of Integer;
  mn, n, n0, k, i, j: Integer;
begin
  Randomize;
  WriteLn('M =');
  for i:=1 to r do begin
    for j:=1 to c do begin
      m[i,j]:=Random(2); Write(m[i,j]:4);
    end; WriteLn;
  end;
  Write('N(0)>N(1):'); mn:=r+1;
  for j:=1 to c do begin
    n0:=0; for i:=1 to r do Inc(n0,Ord(m[i,j]=0));
    if n0>r-n0 then begin Inc(n); Write(' ',j) end;
    if mn>n0 then begin mn:=n0; k:=j end;
  end; WriteLn;
  WriteLn('N=',n,' K=',k);
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
20.12.2015, 22:10

Отпечатать номера тех строк, в которых третий элемент больше суммы двух других элементов строки, и число таких строк
Для матрицы из 3 столбцов и 7 строк отпечатать номера тех строк, в которых...

Отпечатать номера столбцов, в которых второй элемент больше среднего арифметического элементов этого столбца
Помогите пожалуйста! Заранее спасибо! 1)Задана матрица А(6,6). Сформировать...

Найти номера тех элементов массива, которые больше своего правого соседа, и количество таких элементов
Задача 1. Дан целочисленный массив А(а1...аn). Найти номера тех элементов...


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

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

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