"Особый" элемент

@sergei_mizanin · Регистрация: 22.01.2013

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

Задана матрица NxM. Определить k-количество "особых" элементов матрицы, считая "особым", если в его строке слева от него находятся элементы меньше его, а справа - больше.

@Дикутенз · 14.03.2013, 10:34

Pascal

Uses crt;
const n=7; m=3;
Var x:array[1..n,1..m] of integer;
    i,j,max,min,p,k:integer;
    bol,men:byte;
Begin clrscr; randomize;
  for i:=1 to n do
   for j:=1 to m do x[i,j]:=Random(100);
  for i:=1 to n do
    Begin
      for j:=1 to m do Write(x[i,j]:4);
      WriteLn;
    End;
  for i:=1 to n do
      for j:=2 to m-1 do
        Begin
          bol:=1;
          max:=x[i,j];
          for p:=j+1 to m do if x[i,p]<max then bol:=0;
          men:=1;
          min:=x[i,j];
          for p:=j-1 downto 1 do if x[i,p]>min then men:=0;
          if (bol=1) and (men=1) then inc(k);
        End;
  WriteLn(k);
  ReadLn;
End.

@sergei_mizanin 0 / 0 / 0 Регистрация: 22.01.2013 Сообщений: 6
		1
	"Особый" элемент 14.03.2013, 09:09. Показов 1024. Ответов 1 Метки нет (Все метки) Задана матрица NxM. Определить k-количество "особых" элементов матрицы, считая "особым", если в его строке слева от него находятся элементы меньше его, а справа - больше. 0

	14.03.2013, 10:34

Опции темы

"Особый" элемент

Решение