Подсчитать количество локальных минимумов в матрице - 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.

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

7   голосов , оценка 3.714 из 5
Похожие ответы