opg5.b 236 B

12345678910111213
  1. 10 rem find largest number (57)
  2. 20 read l
  3. 30 let r=0
  4. 40 for z=1 to l
  5. 50 read a
  6. 60 if a<=r then 80
  7. 70 let r=a
  8. 80 next z
  9. 90 print "largest number is",r
  10. 100 data 10
  11. 110 data 106, 42,-12,111,88,91,3,263,-1042,7
  12. 120 end