pascal编程从键盘输入任意10个整数，把其中的正数之和与负数之和分别输出。（提示：for循环+if语句）输入：5-71120-837-124输出：zhengshu=32fushu=-273、小光和小华同时从甲、乙两地相对

Question

pascal编程
从键盘输入任意10个整数，把其中的正数之和与负数之和分别输出。（提示：for循环+if语句）
输入：5-7 11 2 0 -8 3 7 -12 4 输出：zhengshu=32 fushu= -27
3、小光和小华同时从甲、乙两地相对出发，小光每分钟走80米，小华每分钟走75米，两人在距中点10米处相遇，试问甲乙两地相距多少米？（提示：可以采用repeat循环或while循环，条件为小光行驶路程减去小华行驶路程是否等于20。输出：620）
4、三个不同年龄的人在200米圆形跑道比赛跑，在同一地点处开始跑，甲每分钟跑362米，乙每分钟跑484米，丙每分钟跑186米，问需要多长时间三个人在开始的起点处又同时会面？（提示：可以采用repeat循环或while循环，条件为三者行驶的路程是否同时是200的倍数。输出：100

Answer 1

var
    a, b, c, t : integer;
begin
    a := 362;
    b := 484;
    c := 186;
    t := 1;
    while (((a * t) mod 200) <> 0) or
            (((b * t) mod 200) <> 0) or
            (((c * t) mod 200) <> 0) do
        t := t + 1;
    writeln(t);
end.

运行结果：