Подсчитать количество локальных минимумов в матрице - Turbo Pascal
Формулировка задачи:
Т.к работаю сисадмином не шарю в программировании на pascal, а необходимо решить эту несложную задачу:
Соседями элемента aij в матрице назовем элементы ai-1j , ai+1j , aij-1 , aij+1. Элемент матрицы называется локальным минимумом, если он строго меньше всех соседей. Подсчитать количество локальных минимумов в матрице 5*5.
если у кого есть несколько минут времени времени чтобы написать данную программу, поделитесь, буду очень благодарен.
Решение задачи: «Подсчитать количество локальных минимумов в матрице»
textual
Листинг программы
program pr; const n=5; var a: array [1..5, 1..5] of integer; i, j, cout: integer; begin randomize; cout := 0; for i := 1 to n do for j := 1 to n do a[i, j] := random(21); for i := 1 to n do begin for j := 1 to n do write(a[i, j]:3); writeln; end; for i := 2 to n-1 do for j := 2 to n-1 do if (a[i, j] < a[i - 1, j]) and (a[i, j] < a[i + 1, j]) and (a[i, j] < a[i, j - 1]) and (a[i, j] < a[i, j + 1]) then begin writeln('Локальный минимум: ',a[i,j]); cout := cout + 1; end; writeln('Количество локальных минимумов: ', cout); end.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д