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

[alex377]

Даны целые числа A1, ..., A10 (можно использовать массив из 10 элементов, заполняемый случайным образом), целочисленная квадратная матрица порядка n. Заменить нулями в матрице те элементы с четной суммой индексов, для которых имеются равные среди A1, ..., A10.

[Stilet]

четной суммой индексов

Чего? Каких индексов? О_о

для которых имеются равные среди A1, ..., A10.

Т.е. убрать повторы?

[alex377]

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

Чего? Каких индексов? О_о

Т.е. убрать повторы?

увы, сам не понимаю, в теоретических сведениях к заданию написано следующее:

Двумерные массивы являются аналогами матриц. Первый индекс элемента двумерного массива определяет номер строки, а второй – номер столбца, на пересечении которых расположен элемент. Строки и столбцы нумеруются либо от единого заранее установленного минимального значения индекса, либо от граничного значения, заданного одновременно с объявлением массива.

[Вадим Мошев]

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

Чего? Каких индексов? О_о

У элемента двумерного массива ДВА индекса.
Задачу можно переформулировать следующим образом.

если Элемент матрицы имеет чётную сумму своих индексов (такие элементы располагаются в шахматном порядке) И он совпадает хотя бы с одним элементом массива A, то его меняем на нуль.

Задачу можно переформулировать.
Элементы, располагающиеся на белых клетках шахматной доски (ели матрицу заменить шахматным полем и если индексация от 1) заменить нулями, если такой элемент встречается в массиве A

[newerow1989]

const n=12;
var a:array[1..10] of byte;
    p:array[1..n,1..n] of byte;
    i,j,k:byte;
begin
   Randomize;
   For i:=1 to 10 do
   begin
      a[i]:=Random(21);
      Write(a[i],'  ');
   end;
   Writeln;
   Writeln;
   For i:=1 to n do
   begin
      For j:=1 to n do
      begin
         p[i,j]:=Random(21);
         Write(p[i,j],'  ');
      end;
      Writeln;
   end;
   Writeln;
   For i:=1 to n do
   begin
      For j:=1 to n do
      begin
         If (i+j) mod 2=0 then//в шахматном порядке
            For k:=1 to 10 do
               If a[k]=p[i,j] then
                  p[i,j]:=0;
         Write(p[i,j],'  ');
      end;
      Writeln;
   end;
   Readln;
end.

Сойдет?

[alex377]

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

const n=12;
var a:array[1..10] of byte;
    p:array[1..n,1..n] of byte;
    i,j,k:byte;
begin
   Randomize;
   For i:=1 to 10 do
   begin
      a[i]:=Random(21);
      Write(a[i],'  ');
   end;
   Writeln;
   Writeln;
   For i:=1 to n do
   begin
      For j:=1 to n do
      begin
         p[i,j]:=Random(21);
         Write(p[i,j],'  ');
      end;
      Writeln;
   end;
   Writeln;
   For i:=1 to n do
   begin
      For j:=1 to n do
      begin
         If (i+j) mod 2=0 then//в шахматном порядке
            For k:=1 to 10 do
               If a[k]=p[i,j] then
                  p[i,j]:=0;
         Write(p[i,j],'  ');
      end;
      Writeln;
   end;
   Readln;
end.

Сойдет?

спасибо, но задача уже была решена

[newerow1989]

Пожалуйста!

[Вадим Мошев]

Заказчик обратился ко мне за платной помощью (через подпись). Я ему решил задачу, он оплатил. Заказчик остался доволен.

Тему закрываю