Л литл1995 Регистрация 12 Окт 2013 Сообщения 94 Репутация 0 Спасибо 0 Монет 0 11 Июн 2016 #1 //otvet.imgsmail.ru/download/186008537_658d4deb7d4f77c8e6a54c096b2472e1_800.png
М макуккек Регистрация 11 Сен 2013 Сообщения 70 Репутация 0 Спасибо 0 Монет 0 11 Июн 2016 #2 m:=a[1]; for i:=1 to n do if m < a tjem m:=a; WriteLn(m); В PascalABC.Net ещё проще: WriteLn(a.Max); Позитивный голос 0
Р Роман69 Регистрация 20 Окт 2013 Сообщения 93 Репутация -20 Спасибо 0 Монет 0 11 Июн 2016 #3 В жопе на дне Позитивный голос 0