10進basicにて

質問

今、10進basicで配列についてやっています。
問題は

a(1),a(2)…a(5)を自ら入力して、偶数が少なくとも一つあれば「あり」、全てが奇数ならば「なし」と表示するプログラムを組みなさい。

というものなんです。
一つずつのaの判定ならできるのですが、全部の値を入力した後に、「あり」「なし」の判定をどう出せばいいのかわかりません。

100 dim a(5)
200 for k=1 to5
300 input a(k)

この後はどうすればいいのでしょうか。
ご回答お願いします。

回答No.1

ojisan7

以下に参考までに書きますが、これではまだ合格点は出せません。
以下のプログラムを改良して、完璧なものに仕上げて下さい。

100 DIM a(5)
200 FOR k=1 TO 5
300 INPUT a(k)
400 NEXT k
500 FOR j=1 TO 5
600 LET s=MOD(a(j),2)
700 IF s=0 THEN 1000
800 NEXT j
900 PRINT "なし"
STOP
1000 PRINT "あり"
END

お礼

ご回答ありがとうございます。

やはりこの組み方では、偶数が出た時点で1000にstepしてしまうので、
全部を入力した上で判定ができないということで完璧ではないのでしょうか。

参考にさせていただき、
自分で改良してみたいと思います。
ありがとうございます。