Заменить нулями в матрице те элементы с четной суммой индексов, для которых имеются равные среди элементов массива

@Yourhabit · Регистрация: 15.03.2019

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

Даны массив А=(а1,а2...а10) и матрица В(n*n). заменить нулями в матрице те элементы с четной суммой индексов, для которых имеються равные среди элементов массива А.

@Сергей Игнатьев · 15.03.2019, 16:22

Yourhabit, Извини, но ты навсегда останешься новичком, если не будешь
пытаться хоть что-нибудь сделать самостоятельно, а потом просить помощи, если не получится!

@Yourhabit · 15.03.2019, 16:52 **[ТС]**

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
program tcvet; 
uses crt; 
const n=5; 
 m=7; 
type matr=array[1..n,1..m] of byte; 
var a:matr; 
 i,j,k:byte; 
  begin 
writeln; 
 {$R+} {Включение контроля значений индексов} 
 clrscr; {Очистка экрана} 
 writeln(’Исходная матрица’);
for i:=1 to 10 do
 begin
   for j:=1 to n do
    for k:=1 to n do
      if (a[j,k]=a[i])and(j+i mod 2 =0) then
       a[j,k]:=0;
 end;
readln; 
 {$R-} 
end.

@Sun Serega · 15.03.2019, 17:32

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

{$R+} {Включение контроля значений индексов}

В PascalABC.Net такой директивы нет.

"A" лучше сделать хашсетом, потому что так проверка нахождения элемента в нём будет быстрее и проще.

Остальное так:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
begin
  
  var A := ReadSeqInteger(10).ToHashSet;
  
  var (w, h) := ReadInteger2;
  var B := ReadMatrInteger(w, h);
  
  B.Transform(
    (o,x,y)->
    ((x+y) mod 2 = 0) and
    A.Contains(o) ?
    0 : o
  );
  
  B.Println;
  
end.

@Yourhabit · 15.03.2019, 20:29 **[ТС]**

.Contains(o) ?
0 : o
);
что здесь

@Sun Serega · 15.03.2019, 20:46

В смысле что это значит? ?: это что то типа if, но его можно страивать в строку:

Pascal
1
2
3
4
5
6
7
begin
  var (r1,r2) := ReadReal2;
  var r: real;
  if r1<r2 then
    r := r1 else
    r := r2;
end.

Это можно сократив через ?: вот так:

Pascal
1
2
3
4
begin
  var (r1,r2) := ReadReal2;
  var r := r1<r2 ? r1 : r2;
end.

Новые блоги и статьи Все статьи Все блоги /
Компиляция 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 Добрый день А вот каково качество/ эффективность ВУЗовского образования? Аналитическая геометрия изучается в первом семестре и считается довольно легким курсом, что вполне справедливо. Ну хорошо,. . .	Lazarus. Таблица с объединением ячеек. Massaraksh7 21.03.2025 Понадобилась представление на экране таблицы с объединёнными ячейками. И не одной, а штук триста, и все разные. На Delphi я использовал для этих целей TStringGrid, и то, кривовато получалось. А в. . .	Async/await в Swift: Асинхронное программирование в iOS mobDevWorks 20.03.2025 Асинхронное программирование долго было одной из самых сложных задач для разработчиков iOS. В течение многих лет мы сражались с замыканиями, диспетчеризацией очередей и обратными вызовами, чтобы. . .	Колмогоровская сложность: Приёмы упрощения кода ArchitectMsa 20.03.2025 Наверное, каждый программист хотя бы раз сталкивался с кодом, который напоминает запутанный лабиринт — чем дальше в него погружаешься, тем сложнее найти выход. И когда мы говорим о сложности кода, мы. . .

@Yourhabit 0 / 0 / 0 Регистрация: 15.03.2019 Сообщений: 3

	Заменить нулями в матрице те элементы с четной суммой индексов, для которых имеются равные среди элементов массива 15.03.2019, 16:05. Показов 1513. Ответов 5 Метки нет (Все метки) Даны массив А=(а1,а2...а10) и матрица В(n*n). заменить нулями в матрице те элементы с четной суммой индексов, для которых имеються равные среди элементов массива А. 0

@Сергей Игнатьев 222 / 57 / 18 Регистрация: 13.03.2017 Сообщений: 295
	15.03.2019, 16:22
	Yourhabit, Извини, но ты навсегда останешься новичком, если не будешь пытаться хоть что-нибудь сделать самостоятельно, а потом просить помощи, если не получится! 0

@Yourhabit 0 / 0 / 0 Регистрация: 15.03.2019 Сообщений: 3
	15.03.2019, 20:29 [ТС]
	.Contains(o) ? 0 : o ); что здесь 0

Опции темы

Заменить нулями в матрице те элементы с четной суммой индексов, для которых имеются равные среди элементов массива

Решение