ערכתי לאחרונה בתאריך 30.10.03 בשעה 23:37 בברכה, UC
for i:=1 to 10 do
for j:=1 to n do
if a{j}=i then
mone:=mone+1;
if mone=10 then
writeln('true')
else
writeln('false');מה שרשמתי הוא נכון, אבל עקרונית הוא עובד בצורה נכונה רק אם אין כפל קליטה, כלומר אם לא יקלט מספר בין 1-10 יותר מפעם אחת.... אם אפשר שיקלט מספר בין 1 ל-10 יותר מפעם אחת, אז התכנית שלי לא נכונה.