Помогите с паскалем, очень надо!

Question

Юзер вводит N вещественных чисел. Число N не определено зараннее. 
 Выход из цыкла при нуле или 100. В цикле сумма всех пложительных чисел. 
 Какие числа изначально были целыми? 
 через while do. 
 помогите плиз.

через цыкл while do.

Екатерина · Accepted Answer

Це не ясно? цЫкл?

Алексей Трефильев · Answer

begin 
readln(n); 
for i:=1 to n do 
read(a); 
i:=0; 
while (k=0) or (k=100) or (i=n) do 
begin 
i:=i+1; 
k:=k+a; 
end; 
как тот так