Ước của 200 và tính tổng giá trị của các số nhỏ hơn giá trị K cho trước

By: Unknown on 3/03/2012 08:26:00 PM

Share it Please

Tweet

PROGRAM xamxam;
USES crt;
VAR
a:ARRAY[1..100] OF INTEGER;
i,n,k,s:INTEGER;
BEGIN
    clrscr;
    writeln('nhap vao n: ');readln(n);  
    writeln('nhap vao K: ');readln(k);
    FOR i:=1 TO n DO
    BEGIN
        writeln('nhap vao phan tu thu ',i,' ');readln(a[i]);
    END;         
    writeln('uoc cua 200 la: ');
    FOR i:=1 TO n DO
    IF 200 MOD a[i] = 0 THEN
    writeln(a[i]);
     FOR i:=1 TO n DO
    IF a[i] < k THEN s:=s+a[i];
     writeln('tong gia tri cac so nho hon ',k,' : ',s);
     readln
     END.