Надо написать программу или помогите перевести программу из Паскаль в Бейсик :D (в...

Question

Надо написать программу или помогите перевести программу из Паскаль в Бейсик :D
(в бейсике)

---

---

Answer 1

MS DOS QBasic 1.0

INPUT n
FOR i = 1 TO n
   INPUT a
   IF a > max THEN max = a
   IF a = 0 THEN num = 1
NEXT i
PRINT max
IF num > 0 THEN
   PRINT "YES"
ELSE
   PRINT "NO"
END IF