//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
Если судить по логике то 2кбайт.
ты и так ответила на этот вопрос...))))))
Задача сделана на языке паскаль, при помощи
PaskalPlus<span>
Оформление сделана как для студенческой задачи
<span>Если есть вопросы пиши в личку</span></span>
Var
a: integer;
begin
readln(a);
if a<100 then inc(a) else dec(a);
write(a);
end.