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

@Fgik · Регистрация: 29.11.2012

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

Условие:
Дан массив А=(а1,а2...а10) и матрица В=(n*n). Заменить нулями в матрице те элементы, для которых имеются равные среди элементов массива А
Основу программы я написал, но вот не могу понять как произвести замену элемента матрицы на 0.

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
32
33
34
35
36
37
38
39
40
41
42
uses crt;
const n=5;
      m=5;
type matr=array[1..n,1..m] of byte;
type arr=array[1..10] of integer;
var a:matr;
var b:arr;
  i,j:byte;
  s,p:byte;
  begin
    writeln;
    writeln('Дан массив А=(а1,а2...а10) и матрица В=(n*n). Заменить нулями в матрице те элементы, для которых имеются равные среди элементов массива А');
    writeln;
    {$R+}
    clrscr;
    p:=10;
    randomize;
    writeln('Массив');
    for s:=1 to p do
    begin
      b[s]:=+10+random(20);
      write(b[s]:4);
      end;
      begin
      writeln;
    writeln('Матрица');      
    for i:=1 to n do
    begin
      for j:=1 to m do
      begin 
      a[i,j]:=10+random(20);
      write(a[i,j]:3);
      end;
      writeln;
{вот здесь у меня закончился мозг и идеи на реализацию условия, нужна помощь}
            end;
              writeln('Результат обработки:');
      readln;
      writeln;
    writeln;
            end;
            end.

@CodeR · 02.12.2012, 09:11

Pascal
1
2
3
4
For i:=1 to n do
 For j:=1 to m do
  For k:=1 to p do
   if B[i,j]=A[k] then then B[i,j]:=0;

@Fgik · 02.12.2012, 10:15 **[ТС]**

Программа работает но не отображает результат:
программа целиком:

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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
uses crt;
const n=5;
      m=5;
      p=10;
type matr=array[1..n,1..m] of byte;
type arr=array[1..p] of integer;
var a:matr;
var b:arr;
  i,j:byte;
  k:byte;
  begin
    writeln;
    writeln('Дан массив А=(а1,а2...а10) и матрица В=(n*n). Заменить нулями в матрице те элементы, для которых имеются равные среди элементов массива А');
    writeln;
    {$R+}
    clrscr;
    randomize;
    writeln('Массив');
    for k:=1 to p do
    begin
      b[k]:=+10+random(20);
      write(b[k]:4);
      end;
      begin
      writeln;
    writeln('Матрица');      
    for i:=1 to n do
    begin
      for j:=1 to m do
      begin 
      a[i,j]:=10+random(20);
      write(a[i,j]:3);
      end;
      writeln;
            end;
            begin
              For i:=1 to n do
              For j:=1 to m do
              For k:=1 to p do
               if a[i,j]=b[k] then 
               a[i,j]:=0;
               end;
            end;
              writeln('Результат обработки:');
      readln;
      writeln;
    writeln;
 
            end.

После результата обработки он отступает 3 строки и выводит сообщение об успешном завершении программы

@CodeR · 02.12.2012, 10:23

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

Программа работает но не отображает результат:
программа целиком:

так а где вывод результата то?вы не сделали же вывод...

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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
uses crt;
const n=5;
      m=5;
      p=10;
type matr=array[1..n,1..m] of byte;
type arr=array[1..p] of integer;
var a:matr;
var b:arr;
  i,j:byte;
  k:byte;
  begin
    writeln;
    writeln('Дан массив А=(а1,а2...а10) и матрица В=(n*n). Заменить нулями в матрице те элементы, для которых имеются равные среди элементов массива А');
    writeln;
    {$R+}
    clrscr;
    randomize;
    writeln('Массив');
    for k:=1 to p do
    begin
      b[k]:=+10+random(20);
      write(b[k]:4);
      end;
      begin
      writeln;
    writeln('Матрица');      
    for i:=1 to n do
    begin
      for j:=1 to m do
      begin 
      a[i,j]:=10+random(20);
      write(a[i,j]:3);
      end;
      writeln;
            end;
              For i:=1 to n do
              Begin
              For j:=1 to m do
               Begin
                For k:=1 to p do
                 if a[i,j]=b[k] then 
                a[i,j]:=0;
                write(A[i,j]:4);
               end;
              writeln;
              end;
              writeln('Результат обработки:');
      readln;
      writeln;
    writeln;
 
            end.

Новые блоги и статьи Все статьи Все блоги /
Согласованность транзакций в MongoDB Codd 30.04.2025 MongoDB, начинавшая свой путь как классическая NoSQL система с акцентом на гибкость и масштабируемость, сильно спрогрессировала, включив в свой арсенал поддержку транзакционной согласованности. Это. . .	Продвинутый ввод-вывод в Java: NIO, NIO.2 и асинхронный I/O Javaican 30.04.2025 Когда речь заходит о вводе-выводе в Java, классический пакет java. io долгие годы был единственным вариантом для разработчиков, но его ограничения становились всё очевиднее с ростом требований к. . .	Обнаружение объектов в реальном времени на Python с YOLO и OpenCV AI_Generated 29.04.2025 Компьютерное зрение — одна из самых динамично развивающихся областей искусственного интеллекта. В нашем мире, где визуальная информация стала доминирующим способом коммуникации, способность машин. . .	Эффективные парсеры и токенизаторы строк на C# UnmanagedCoder 29.04.2025 Обработка текстовых данных — частая задача в программировании, с которой сталкивается почти каждый разработчик. Парсеры и токенизаторы составляют основу множества современных приложений: от. . .	C++ в XXI веке - Эволюция языка и взгляд Бьярне Страуструпа bytestream 29.04.2025 C++ существует уже более 45 лет с момента его первоначальной концепции. Как и было задумано, он эволюционировал, отвечая на новые вызовы, но многие разработчики продолжают использовать C++ так, будто. . .
Слабые указатели в Go: управление памятью и предотвращение утечек ресурсов golander 29.04.2025 Управление памятью — один из краеугольных камней разработки высоконагруженных приложений. Го (Go) занимает уникальную нишу в этом вопросе, предоставляя разработчикам автоматическое управление памятью. . .	Разработка кастомных расширений для компилятора C++ NullReferenced 29.04.2025 Создание кастомных расширений для компиляторов C++ — инструмент оптимизации кода, внедрения новых языковых функций и автоматизации задач. Многие разработчики недооценивают гибкость современных. . .	Гайд по обработке исключений в C# stackOverflow 29.04.2025 Разработка надёжного программного обеспечения невозможна без грамотной обработки исключительных ситуаций. Любая программа, независимо от её размера и сложности, может столкнуться с непредвиденными. . .	Создаем RESTful API с Laravel Jason-Webb 28.04.2025 REST (Representational State Transfer) — это архитектурный стиль, который определяет набор принципов для создания веб-сервисов. Этот подход к построению API стал стандартом де-факто в современной. . .	Дженерики в C# - продвинутые техники stackOverflow 28.04.2025 История дженериков началась с простой идеи — создать механизм для разработки типобезопасного кода без потери производительности. До их появления программисты использовали неуклюжие преобразования. . .

Опции темы