В двумерном массиве целых чисел определить множество четных чисел кратных 3

@Петр007 · Регистрация: 07.02.2018

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

Тип данных множества set..
В двухмерном массиве 6 строк и 6 столбцов из целых чисел определить множества четных чисел кратным 3

@Puporev · 07.02.2018, 18:49

Сообщение от Петр007

определить множества

Сколько же множеств нужно?

@Hitoku · 07.02.2018, 18:49

Pascal
1
2
3
4
5
6
7
8
9
10
begin
  var s: set of integer;
  var a := MatrRandom(6, 6, -100, 100);
  a.Println;
  for var i := 0 to a.GetLength(0) - 1 do
    for var j := 0 to a.GetLength(1) - 1 do
      if (a[i,j] mod 2 = 0) and (a[i,j] mod 3 = 0) and not (a[i, j] in s) then
        include(s, a[i, j]);
  writelnformat('Четные числа, кратные 3-м: {0}', s);
end.

@Петр007 · 25.02.2018, 21:10 **[ТС]**

а можно как то по другому решить и без отрицательных чисел

@Hitoku · 25.02.2018, 21:51

Ну давайте попробуем

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
const  n = 6;
var s: set of integer;
    a: array[1..n, 1..n] of integer;
    i, j: integer;
begin
  for i := 1 to n do begin
    for j := 1 to n do begin
      a[i, j] := random(51);
      write(a[i, j]:3);
      if (a[i, j] mod 2 = 0) and (a[i, j] mod 3 = 0) and not (a[i, j] in s) then
        include(s, a[i, j]);
    end;
    writeln
  end;
  writeln('Четные числа, кратные 3-м: ', s);
end.

@volvo · 26.02.2018, 12:41

Сообщение от Hitoku

Pascal
1
if (a[i,j] mod 2 = 0) and (a[i,j] mod 3 = 0) and not (a[i, j] in s) then

без ущерба для результата меняется на

Pascal
1
if a[i, j] mod 6 = 0 then

@eaa · 26.02.2018, 18:31

Pascal
1
2
3
4
5
6
begin
  var a := MatrRandomInteger(6, 6);
  a.Println;
  var b := a.ElementsByCol.Where(i -> i mod 6 = 0).ToHashSet;
  Println('Множество:', b)
end.

Новые блоги и статьи Все статьи Все блоги /
Вопросы на собеседованиях по микросервисам ArchitectMsa 27.03.2025 Работодатели ищут не просто разработчиков, знающих базовые концепции, а специалистов, разбирающихся в тонкостях масштабирования, отказоустойчивости и производительности. Сейчас на первый план выходят. . .	Взаимодействие Python с REST API py-thonny 27.03.2025 REST API - это архитектурный стиль взаимодействия компонентов распределённого приложения в сети. Python располагает функциональным набором инструментов для работы с REST API и основная библиотека для. . .	sshd restrictions, ssh access limitations jigi33 26.03.2025 sshd restrictions \| ssh access limitations рестрикции доступа на сервер sshd статья: https:/ / www. golinuxcloud. com/ restrict-allow-ssh-certain-users-groups-rhel	Компиляция C++ с Clang API NullReferenced 24.03.2025 Компиляторы обычно воспринимаются как черные ящики, которые превращают исходный код в исполняемые файлы. Мы запускаем компилятор командой в терминале, и вуаля — получаем бинарник. Но что если нужно. . .	Многопоточное программирование в C#: Класс Thread UnmanagedCoder 24.03.2025 Когда запускается приложение на компьютере, операционная система создаёт для него процесс - виртуальное адресное пространство. В C# этот процесс изначально получает один поток выполнения — главный. . .
SwiftUI Data Flow: Передача данных между представлениями mobDevWorks 23.03.2025 При первом знакомстве со SwiftUI кажется, что фреймворк предлагает избыточное количество механизмов для передачи данных: @State, @Binding, @StateObject, @ObservedObject, @EnvironmentObject и другие. . . .	Моки в Java: Сравниваем Mockito, EasyMock, JMockit Javaican 23.03.2025 Как протестировать класс, который зависит от других сложных компонентов, таких как базы данных, веб-сервисы или другие классы, с которыми и так непросто работать в тестовом окружении? Для этого и. . .	Архитектурные паттерны микросервисов: ТОП-10 шаблонов ArchitectMsa 22.03.2025 Популярность микросервисной архитектуры объясняется множеством важных преимуществ. К примеру, она позволяет командам разработчиков работать независимо друг от друга, используя различные технологии и. . .	Оптимизация рендеринга в Unity: Сортировка миллиона спрайтов GameUnited 22.03.2025 Помните, когда наличие сотни спрайтов в игре приводило к существенному падению производительности? Время таких ограничений уходит в прошлое. Сегодня геймдев сталкивается с задачами совершенно иного. . .	Образование и практика Igor3D 21.03.2025 Добрый день А вот каково качество/ эффективность ВУЗовского образования? Аналитическая геометрия изучается в первом семестре и считается довольно легким курсом, что вполне справедливо. Ну хорошо,. . .

@Петр007 0 / 0 / 0 Регистрация: 07.02.2018 Сообщений: 2

	В двумерном массиве целых чисел определить множество четных чисел кратных 3 07.02.2018, 18:38. Показов 1862. Ответов 6 Метки нет (Все метки) Тип данных множества set.. В двухмерном массиве 6 строк и 6 столбцов из целых чисел определить множества четных чисел кратным 3 0

@Puporev Почетный модератор 64308 / 47605 / 32742 Регистрация: 18.05.2008 Сообщений: 115,181
	07.02.2018, 18:49
	Сообщение от Петр007 определить множества Сколько же множеств нужно? 0

@Петр007 0 / 0 / 0 Регистрация: 07.02.2018 Сообщений: 2
	25.02.2018, 21:10 [ТС]
	а можно как то по другому решить и без отрицательных чисел 0

Опции темы

В двумерном массиве целых чисел определить множество четных чисел кратных 3

Решение