Дана матрица

[LORD90]

Помогите решить. Скрин матрицы во вложении лежит. Срочно очень надо...

Дана матрица А(nxn) (n – четное число, 2<=n<=10). Найти максимальный элемент, расположенный в заштрихованной части матрицы, и минимальный – в не заштрихованной. Поменять местами строку, содержащую максимальный элемент, со строкой, содержащей минимальный элемент.

[XeruH]

Если сам в программировании не шаришь то тебе во фриланс.. просто так за тебя делать твои задания никто не будет

[rubius2008]

А если нечетное количество элементов матрицы (например 5х5), то срединная строка как будет выглядеть? будут там незаштрихованные?

[Stilet]

Рискну предположить что условие заштрихованности просто е до безобразия:

MODULE m;
IMPORT StdLog,ObxRandom;
CONST n=5;
VAR a:ARRAY(n) OF ARRAY(n) OF INTEGER;

PROCEDURE Shtrich(i,j:INTEGER):BOOLEAN;
BEGIN
 IF ((i=0)&(j#0))OR((i=1)&(j#1))OR(i>1) THEN
  RETURN TRUE
 ELSE
  RETURN FALSE
 END;
END Shtrich;

PROCEDURE Max():INTEGER;
VAR i,j,max:INTEGER;
BEGIN max:=a[0,0];
 FOR i:=0 TO LEN(a)-1 DO
  FOR j:=0 TO LEN(a[i])-1 DO
   IF (Shtrich(i,j))&(a[i,j]<max) THEN max:=a[i,j]; END;
  END;
 END;
 RETURN max;
END Max;

PROCEDURE Min():INTEGER;
VAR i,j,min:INTEGER;
BEGIN min:=a[0,0];
 FOR i:=0 TO LEN(a)-1 DO
  FOR j:=0 TO LEN(a[i])-1 DO
   IF (~Shtrich(i,j))&(a[i,j]>min) THEN min:=a[i,j]; END;
  END;
 END;
 RETURN min;
END Min;

PROCEDURE Ввод;
VAR i,j:INTEGER;
BEGIN
 FOR i:=0 TO LEN(a)-1 DO
  FOR j:=0 TO LEN(a[i])-1 DO
   a[i,j]:=10+SHORT(ENTIER(ObxRandom.Uniform()*90));
  END;
 END;
END Ввод;

PROCEDURE Вывод;
VAR i,j:INTEGER;
BEGIN
 FOR i:=0 TO LEN(a)-1 DO
  FOR j:=0 TO LEN(a[i])-1 DO
   StdLog.Int(a[i,j]);StdLog.Tab;
  END; StdLog.Ln;
 END;
END Вывод;

PROCEDURE do*;
BEGIN StdLog.Clear;
 Ввод;Вывод;StdLog.Ln;
 StdLog.Int(Max());StdLog.Tab;
 StdLog.Int(Min());
END do;
END m.

[LORD90]

а можеш в архиве скинуть исходник с прогой

[Stilet]

А зачем? Это и есть исходник, это же и есть прога. Даже ее можно тупо скопипастить и запустить в среде. (по крайней мере я ее выдернул из среды аз есьм.)

[LORD90]

просто если скопировать код в делфи она не запускаеца

[Stilet]

А причем тут Делфи? Кто сказал про Делфи?

[LORD90]

это на делфи надо было сделать