Элемент матрицы называется локальным минимумом

@PIMP · Регистрация: 14.01.2014

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

Элемент матрицы называется локальным минимумом, если он строго меньше всех имеющихся у него соседей.Подсчитать количество локальных минимумов заданной матрицы размером 10х10. Найти сумму моделей элементов, расположенных выше главной диагонали.

@Puporev · 14.01.2014, 18:27

Pascal

uses crt;
const n=10;
var a:array[0..n+1,0..n+1] of integer;
    i,j,k,l,r,q,s:integer;
begin
//обрамляем матрицу максимально большими целыми числами
for i:=0 to n+1 do
 begin
 a[0,i]:=maxint;
 a[n+1,i]:=maxint;
 end;
for i:=1 to n do
 begin
 a[i,0]:=maxint;
 a[i,n+1]:=maxint
 end;
s:=0;
for i:=1 to n do
for j:=1 to n do
 begin
  a[i,j]:=-5+random(20);
  if j>i then s:=s+abs(a[i,j])
 end;
writeln('Исходная матрица:');
for i:=1 to n do
 begin
 for j:=1 to n do
 write(a[i,j]:3);
 writeln;
 end;
r:=0;
for i:=1 to n do
for j:=1 to n do
 begin
  q:=0;
  for k:=i-1 to i+1 do
  for l:=j-1 to j+1 do
  if a[k,l]>a[i,j] then inc(q);
  if q=8 then inc(r);
 end;
writeln('Количество локальных минимумов= ',r);
writeln('Сумма модулей выше главной диагонали=',s)
end.

@PIMP 0 / 0 / 0 Регистрация: 14.01.2014 Сообщений: 8
		1
	Элемент матрицы называется локальным минимумом 14.01.2014, 17:27. Показов 3479. Ответов 1 Метки нет (Все метки) Элемент матрицы называется локальным минимумом, если он строго меньше всех имеющихся у него соседей.Подсчитать количество локальных минимумов заданной матрицы размером 10х10. Найти сумму моделей элементов, расположенных выше главной диагонали. 0

	14.01.2014, 18:27

Элемент матрицы называется локальным минимумом

Решение