Заменить на ноль все ближайшие соседние элементы матрицы

@net_haker1 · Регистрация: 02.10.2013

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

Дан двумерный массив MAS. Ввести A (номер строки) и B (номер столбца) Заменить на ноль все ближайшие соседние элементы для MAS[A,B].

@True_LyaLya · 28.10.2013, 09:27

Заполнение массива и вывод сам делай. Это для случая заполнения нулями в "виде креста".

Pascal

Const 
n=5;
m=5;
Var
MAS: Array [1..n,1..m]of Integer;
A,B:Integer;
Begin
write('A= '); readln(A);
write('B= '); readln(B);
MAS[A-1,B]:=0;
MAS[A+1,B]:=0;
MAS[A,B-1]:=0;
MAS[A,B+1]:=0;
END.

Это для случая заполнения нулями в "виде креста". Если полностью все соседние элементы включая диагональные добавь

Pascal

MAS[A+1,B-1]:=0;
MAS[A+1,B+1]:=0;
MAS[A-1,B-1]:=0;
MAS[A-1,B+1]:=0;

@net_haker1 0 / 0 / 2 Регистрация: 02.10.2013 Сообщений: 155
		1
	Заменить на ноль все ближайшие соседние элементы матрицы 28.10.2013, 08:53. Показов 1815. Ответов 1 Метки нет (Все метки) Дан двумерный массив MAS. Ввести A (номер строки) и B (номер столбца) Заменить на ноль все ближайшие соседние элементы для MAS[A,B]. 0

	28.10.2013, 09:27

Заменить на ноль все ближайшие соседние элементы матрицы

Решение