Ok, I know you guys don't really just give away the answer to the whole problem like that. But I really can't figure this one out.... The question states: The following represents some sample scores obtained by students in a test: 5,4,7,10,0,6,0,1,9,6,8,999. 999 is the dummy value which terminates the data. Write a program to read in any data in the above format and print the number of students scoring zeros and tens. This is what I have so far:
program zeros_tens;
uses wincrt;
var num,count_zero,count_ten:integer;
Begin
count_zero:=0;
count_ten:=0;
readln(num);
While num<>999 do
readln(num);
IF num=0 then
count_zero:=count_zero+1;
IF num=10 then
count_ten:=count_ten+1;
Writeln('The number of zero(s) is equal to: ',count_zero);
Writeln('The number of tens is equal to: ',count_zero);
End.