(*
Her çevrimde okumak istediğin için bir zaman aralığı koymuyorum. Ortalama kaç değer kaydedeceğini bilmediğimden arrayi
10 değerle sınırlandırdım sen değiştirebilirsin.
*)
IF #i >= 0 AND #i <= 10 THEN
FOR #i := 0 TO 10 DO
#Kaydedilen_Deger[#i] := #kaydedilecek_deger;
IF #i = 10 THEN
#Son_Veri := TRUE;
END_IF;
;
END_FOR;
ELSE
#i := 0;
#Son_Veri := false;
END_IF;