[Alegun]

Сообщение от hsMapk

...В прямоугольной матрице в каждой строке оставить без изменения минимальный и максимальный элементы строки. Остальные элементы строк заменить нулями...

Код:

 uses Math;
//...
for i := 0 to 3 do
 begin
  b:= MinIntValue(M[i]);
  c:= MaxIntValue(M[i]);
  for j := 0 to 4 do
 if (M[i, j] = b) or
         (M[i, j] = c) then else M[i, j]:= 0;
 end;