Как найти max и min элементы матрицы?????

[B_N]

Сообщение от Карась

"ЭЭЭЭЭэээээ... чаво

Что такое minint ?" Понял.......... Пояснять ненадо...

А я вот, кстати, полез было пояснять и с удивлением обнаружил, что VP знает maxint, но не знает minint... хотя я прекрасно помню, что давным-давно в TP он был.... так что теперь я -

[ЕвгениуS]

Сообщение от Карась

"ЭЭЭЭЭэээээ... чаво

Что такое minint ?" Понял.......... Пояснять ненадо...



Но мой то код работает на вашем паскале?

Ваш код отлично работает :-)

[Карась]

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

А я вот, кстати, полез было пояснять и с удивлением обнаружил, что VP знает maxint, но не знает minint... хотя я прекрасно помню, что давным-давно в TP он был.... так что теперь я -

Судя по справке делфи надо писать Low(Integer)...
В паскале тоже у меня заработало

However, the High, Low, Succ, Pred, Inc, Dec, IntToStr, and IntToHex routines fully support Int64 arguments.

[B_N]

Сообщение от Карась

В паскале тоже у меня заработало

А в каком, если не секрет? Похоже, что современные паскали избавляются от minint'а...

[Карась]

TP 7.1
В нём тоже работает только maxint.......

[B_N]

Сообщение от Карась

TP 7.1
В нём тоже работает только maxint.......

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

const minint = (-maxint-1);

да и забыл теперь благополучно.... Хотя, например, вот: ( http://www.cs.grinnell.edu/~stone/co.../integers.html )

The identifier MinInt is predefined (as a non-standard extension to the
language) in HP Pascal.

[ЕвгениуS]

Чет никак в толк не возьму. А как минимальные значения находить. Как не эксперементирую-ничего путного не выходит))

[_Dmitry]

max:=a[1,1];
min:=a[1,1];
for i:=1 to n do  
  for j:=1 to m do  
    begin
      if a[i,j] > max then max:=a[i,j];
      if a[i,j] < min then min:=a[i,j];
    end;

[puporev]

Немножко поправлю.
begin
if a[i,j] > max then max:=a[i,j]
else if a[i,j] < min then min:=a[i,j];
end;

[ЕвгениуS]

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

max:=a[1,1];
min:=a[1,1];
for i:=1 to n do  
  for j:=1 to m do  
    begin
      if a[i,j] > max then max:=a[i,j];
      if a[i,j] < min then min:=a[i,j];
    end;

Большое спасибо. Плохо, что у нас в институте не разбираются никакие примеры.