viết chương trình tính tổg các phần tử có giá trị là bội của 3.

By: Unknown on 3/03/2012 07:30:00 PM

Share it Please

Tweet

 cho dãy A gồm N số nguyên(5<n<500) viết chương trình tính tổg các phần tử có giá trị là bội của 3.
PROGRAM d4;
USES crt;
VAR
a:ARRAY[1..50] OF INTEGER;
i,s,n:INTEGER;
BEGIN
clrscr;
REPEAT
writeln('nhap n: ');readln(n);
UNTIL (n>5) AND (n<50);
FOR i:=1 TO n DO
BEGIN
writeln('nhap phan tu thu ',i,' ');
readln(a[i]);
END;
FOR i:=1 TO n DO
IF a[i] MOD 3=0 THEN s:=s+a[i];
writeln('tong cac phan tu co gia tri la boi cua 3 la:',s);
readln
END.