Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=26305&view=findpost&p=185818 Tue, 16 Apr 2002 16:37:09 +0000 Обработка данных https://forum.sources.ru/index.php?showtopic=26305&view=findpost&p=185818
    Var<br>   X: array [1..20, 1..20] of Longint;<br>   GlobMin, GlobMax, LocMin, LocMax: Longint;<br>   i, j: Word;<br><br>Begin<br>   Randomize;<br>   For i := 1 to 20 do<br>      For j := 1 to 20 do<br>         X[i,j] := -9999+Random(19999);<br>   GlobMin := X[1,1];<br>   GlobMax := GlobMin;<br>   For i := 1 to 20 do<br>   Begin<br>      LocMin := X[i,1];<br>      LocMax := LocMin;<br>      For j := 2 to 20 do<br>      Begin<br>         If LocMin > X[i,j] then LocMin := X[i,j];<br>         If LocMax < X[i,j] then LocMax := X[i,j]<br>      End;<br>      If GlobMin > LocMin then GlobMin := LocMin;<br>      If GlobMax < LocMax then GlobMax := LocMax;<br>      WriteLn('Локальные min/max строки', i: 3, ' =', LocMin: 6, LocMax: 6)<br>   End;<br>   WriteLn('Глобальные min/max ', i, ' =', GlobMin: 6, GlobMax: 6)<br>End.
]]> 7in Алгоритмы https://forum.sources.ru/index.php?showtopic=26305&view=findpost&p=185817 Thu, 04 Apr 2002 13:34:27 +0000 Обработка данных https://forum.sources.ru/index.php?showtopic=26305&view=findpost&p=185817 что значит уровень?]]> Pin Алгоритмы https://forum.sources.ru/index.php?showtopic=26305&view=findpost&p=185816 Wed, 03 Apr 2002 21:19:59 +0000 Обработка данных https://forum.sources.ru/index.php?showtopic=26305&view=findpost&p=185816 SUnteXx Алгоритмы https://forum.sources.ru/index.php?showtopic=26305&view=findpost&p=185815 Wed, 03 Apr 2002 16:55:18 +0000 Обработка данных https://forum.sources.ru/index.php?showtopic=26305&view=findpost&p=185815 ]]> Muran Алгоритмы https://forum.sources.ru/index.php?showtopic=26305&view=findpost&p=185814 Wed, 03 Apr 2002 11:36:50 +0000 Обработка данных https://forum.sources.ru/index.php?showtopic=26305&view=findpost&p=185814 Поделитесь если нежалко.]]> rodion Алгоритмы