Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
0 / 0 / 0
Регистрация: 04.12.2016
Сообщений: 7
1

Определить, есть ли в данной матрице столбец, в котором все элементы четны и положительны

21.12.2016, 18:04. Просмотров 490. Ответов 1
Метки нет (Все метки)

Дан двумерный массив размером МxN заполненный случайным образом. Определите, есть ли в данном массиве столбец, в котором все элементы четны и положительны
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
21.12.2016, 18:04
Ответы с готовыми решениями:

Определить, есть ли в данной матрице столбец, в котором имеются одинаковые элементы
Дан двумерный массив размером n*m, заполненный случайными числами. Определить, есть ли в данном...

Определить, есть ли в данной матрице столбец, в котором имеются одинаковые элементы
Дан двумерный массив размером n*m, заполненный случайными числами. Определить, есть ли в данном...

Определить, есть ли в данной матрице столбец, в котором имеются одинаковые элементы
Здравствуйте! Нужно решить задачу. Дан двумерный массив размерностью , заполненный случайными...

Определить, есть ли в данной матрице столбец, в котором имеются одинаковые элементы
Дан двумерный массив размерностью (n, m), заполненный случайными числами. Определить, есть ли в...

1
Модератор
Эксперт Pascal/Delphi
6263 / 4221 / 4610
Регистрация: 05.06.2014
Сообщений: 20,794
21.12.2016, 21:09 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
var
  a: array  [1..100, 1..100] of integer;
  i, j, n, m, k: integer;
 
begin
  randomize;
  write('Введите количество строк     n: ');readln(n);
  write('Введите количество столбцов  m: ');readln(m);
  for i := 1 to n do
  begin
    for j := 1 to m do
    begin
      a[i, j] := random(n) - m div 2;
      write(a[i, j]:3);
    end;
    writeln;
  end;
  k := 0;
  for j := 1 to m do
  begin
    for i := 1 to n do
    begin
      if (a[i, j] mod 2 = 0) and (a[i, j] > 0) then 
        k := k + 1;
    end;
    if k = n then 
      writeln('Столбец из четных и положительных элементов №: ', j);
    k := 0;
  end;
  readln;
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
21.12.2016, 21:09

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Есть ли в матрице W (N,R) столбец, в котором все элементы не принадлежат промежутку (B,C)?
Есть ли в матрице W (N,R) столбец, в котором все элементы не принадлежат промежутку (B,C)?

Определить, есть ли в матрице столбец, в котором имеются одинаковые элементы
Дан двумерный массив размером n*m, заполненный случай¬ными числами. Определить, есть ли в данном...

Определить, есть ли в матрице столбец, в котором имеются одинаковые элементы
дан двумерный массив размером n*m, заполненный случайными числами. Определить, есть ли в данном...

Второй столбец после первого, в котором все элементы положительны
Второй столбец после первого, в котором все элементы положительны


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

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

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