小鱼的数字游戏

洛谷-P1427-小鱼的数字游戏

题目描述：

小鱼最近被要求参加一个数字游戏，要求它把看到的一串数字（长度不一定，以0结束，最多不超过100个，数字不超过2^32-1），记住了然后反着念出来(表示结束的数字0就不要念出来了)。这对小鱼的那点记忆力来说实在是太难了，你也不想想小鱼的整个脑袋才多大，其中一部分还是好吃的肉！所以请你帮小鱼编程解决这个问题。

输入样例：
3 65 23 5 34 1 30 0

输出样例：
30 1 34 5 23 65 3

解题思路：

用个while就可以了。

var
        i,j:longint;
        a:array[0..10000]of longint;
begin
        i:=1;
        read(a[i]);
        while a[i]<>0 do
        begin
                inc(i);
                read(a[i]);
        end;
        for j:=i-1 downto 1 do
                write(a[j],' ');
end.