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

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

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

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

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

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

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

Pascal

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

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

begin
  var (r1,r2) := ReadReal2;
  var r: real;
  if r1<r2 then
    r := r1 else
    r := r2;
end.

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

Pascal

begin
  var (r1,r2) := ReadReal2;
  var r := r1<r2 ? r1 : r2;
end.

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

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

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

Опции темы

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

Решение