Мигает, движется, слушать дает (телефон) .
<span>хвост длинный, а сама масявка, пользы мало если не в "связи" с чем-то (мышь) . </span>
<span>и не картотека и не библиотека, а все знает о многих (записная книжка) </span>
<span>все укроет - сбережет, а не холодильник. (дискета) </span>
рано поднимает, до вечера донимает (школа) .
//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