На паскале или что-то типо того: найдите максимальный элемент массива → примечание: размер массива 100 ячеек → заполнения массива от -500 до 500

//PascalABC.NET версия 3.3

begin
  arrrandom(100, -500, 500).Println.Max.Println;
end.

пример работы программы:
-227 -148 483 325 -183 -270 -242 -51 -494 -322 -189 -294 -367 438 -321 -74 -342 -342 -221 -20 1 179 -250 177 -457 438 -74 48 -161 411 148 -444 -207 -100 85 -342 -71 -16 309 -394 490 82 -45 -172 -144 -102 -444 364 -377 -75 -409 206 48 431 -64 94 -398 -195 281 -120 304 210 -391 -404 31 -246 414 233 -148 -480 498 174 -151 -328 -10 419 -276 423 -180 146 381 63 -75 415 320 443 9 -137 465 492 -444 -376 203 -71 -198 -220 -27 -142 297 -398

498